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"