image of READY prompt

Wang2200.org

Listing of file='IDS2PP26' on disk='vmedia/701-2724B.wvd.zip'

# Sector 718, program filename = 'IDS2PP26'
1000 REM "IDS2PP26" - Release 2.1 - PROGRAM GENERATOR - SET FIELD(S) FROM F/C'
     S
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : FOR I=0TO 3
   : X=99+I*113+INT(I/2)
   : IF STR(E$(),X,8)=" "THEN 3000
   : J1=0
   : FOR J=0TO 4
   : IF E$(X+J*21+8)<>" "THEN J1=J1+1
   : NEXT J
   : ON J1GOTO 1290
   : FOR J=0TO 4
   : E6$=E$(X+J*21+8)
   : IF E6$=" "THEN 1275
   : IF E6$="C"THEN 1100
   : F5$=STR(E$(),X+J*21+9)
   : GOSUB 3060
   : E$=HEX(9A)&"'43"&E8$
   : GOTO 1200
1100 F0$=STR(E$(),X+J*21+9,18)
   : E$="E4$()="&HEX(22)&F0$&HEX(223A)
1200 IF J>0THEN E$=E$&HEX(D3)&"F$(),H)=E4$():"
   : ELSE E$=E$&"F$()=E4$():"
   : F9$=STR(E$(),X+J*21+27)
   : IF F9$=" "AND J=0THEN 1270
   : IF VER(F9$,"##")>0THEN E$=E$&"H=H+"&F9$&":"
   : IF F9$="&"THEN E$=E$&"H=H+"&HEX(D5)&"E4$()):"
   : IF F9$="+"THEN E$=E$&"H=H+1+"&HEX(D5)&"E4$()):"
   : IF F9$=" "THEN E$=E$&"H=1:"
1270 STR(F$(),FNZ(Z))=E$
1275 NEXT J
   : GOTO 2010
1290 IF E$(X+8)="C"THEN 1500
   : F5$=STR(E$(),X+9)
   : GOSUB 3060
   : F$()=F$()&HEX(9A)&"'43"&E8$
   : F0$="E4$()):"
   : GOTO 2010
1500 E$=STR(E$(),X+9,18)
   : F0$=HEX(22)&E$&HEX(22293A)
   : E$=HEX(9A)
2010 F5$=STR(E$(),X)
   : GOSUB 3060
   : STR(E8$,POS(E8$=")"))=","
   : STR(F$(),FNZ(Z))=HEX(9A)&"'45"&E8$
   : IF J1=1THEN F$()=F$()&F0$
   : ELSE F$()=F$()&"F$()):H=1:"
3000 NEXT I
   : $TRAN(F$()<,LEN(F$())>,HEX(1A3A))R
   : LOAD DA T#2,(D$(29))1000,
3020 STOP "LOAD P/F'S"
   : PRINT HEX(06020402000E);AT(23,16);"Compiling BASIC program - Now processi
     ng sector";E4-E3+1;
   : RETURN
3040 STOP "END IT"
3050 DEFFNZ(Z)=LEN(F$())+1
3060 MAT SEARCHE3$(),=STR(F5$,,8)TO F9$STEP 8
   : IF F9$=HEX(0000)THEN IF VER(F5$,"@TSTFLD#")=8THEN F9$=BIN(VAL(STR(F5$,8))
     *8+1619,2)
   : Q=INT((VAL(F9$,2)+7)/8)
   : IF Q=0THEN Q=250
   : IF F5$="@SYSBUF0"THEN Q=269
   : E8$=" "
   : $PACK(F=HEX(1006))E8$FROMQ
   : STR(E8$,,1)="("
   : STR(E8$,LEN(E8$)+1)="):"
   : RETURN
3080 E$=STR(E$(),I*56+J*28+110,18)
   : F0$=HEX(22)&E$&HEX(22)
   : RETURN
3090 F$(FNZ(Z))=HEX(9F)
   : IF J=1AND E$(I*56+109)<>" "THEN STR(F$(),FNZ(Z))=E7$&"1"&E$(I*56+126)
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PP26"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"