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"