image of READY prompt

Wang2200.org

Listing of file='IDS2PPG3' on disk='vmedia/701-2725B.wvd.zip'

# Sector 265, program filename = 'IDS2PPG3'
1000 REM "IDS2PPG3" - Release 2.1 - INTERACTIVE PROGRAM CANNED EDIT SPECS # 3
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : D=VAL(E$(641))
   : S=VAL(STR(E$(),642),2)-8
   : MAT REDIM F$(24)83,E2$(27)83,E3$(24)83
   : E2$()=ALL(00)
   : E3$()=" "
   : DATA LOAD DA T#D,(S)F$()
   : F1,X=VAL(STR(F$(),137))
   : F2,Y=VAL(STR(F$(),138))
   : MAT REDIM E2$(X)83,E3$(Y)83
   : DATA LOAD DA T#D,(S+8)E2$(),E3$()
   : MAT REDIM E2$(249)9,E3$(249)8
   : F=VAL(STR(F$(),135))
1140 B=VAL(STR(F$(),136))
   : Z=VAL(STR(E$(),656))
   : IF Z=FTHEN 3000
   : F1=ABS(INT(-(9*Z+4*B)/249))*3
   : F2=ABS(INT(-8*Z/249))*3
   : IF X=F1AND Y=F2THEN 1240
   : DATA LOAD DC OPEN T#D,STR(E$(),53,8)
   : DSKIP #D,8+(F1+F2)/3S
   : DATA SAVE DC #D,END
1240 IF X=F1OR B=0THEN 1270
   : MAT COPY -E2$()<F*9+1,X*83-F*9>TO -E2$()<F*9+1+83*(F1-X),X*83-F*9>
   : STR(E2$(),F*9+1,83*(F1-X))=ALL(00)
1270 STR(E2$(),F*9+1,9)=HEX(010000B89F98402000)
   : STR(E3$(),F*8+1)="@ACCEPT?"
3000 STR(F$(),135,4)=BIN(Z)&BIN(B)&BIN(F1)&BIN(F2)
   : FOR I=635TO 639STEP 2
   : IF E$(I+1)=HEX(00)THEN 3070
   : P=VAL(E$(I))*9-3
   : STR(E2$(),P,1)=OR HEX(08)
   : STR(E2$(),P+1,1)=ADDE$(I+1)ADDHEX(FF)
3070 NEXT I
   : MAT REDIM F$(24)83,E2$(F1)83,E3$(F2)83
   : DATA SAVE DA T#D,(S,S)F$()
   : DATA SAVE DA T#D,(S,S)E2$()
   : DATA SAVE DA T#D,(S,S)E3$()
   : MAT REDIM F$(E9)1,E2$(250)9,E3$(24)83
   : GOSUB '33("IDS2sP03")
3150 GOSUB '53("EXECUTE = generate program, EDIT = edit screen, FN'31 = cancel
     ")
   : GOSUB '34(250)
   : ON Q-30GOTO 3200,3210,3220
   : PRINT HEX(07);
   : GOTO 3150
3200 LOAD T#2,R3$(1)1000,
3210 LOAD T#2,"IDS2PP01"1000,
3220 R3$()="IDS2MS01"
   : E6$=HEX(01)
   : E$(),E9$(2)=STR(E$(),53,8)
   : LOAD T#2,"IDS2PS01"1000,
3230 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PPG3"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"