Listing of file='IDS2PP08' on disk='vmedia/701-2717B.wvd.zip'
# Sector 553, program filename = 'IDS2PP08'
1000 REM "IDS2PP08" - Release 2.1 - PROGRAM GENERATOR - IDEAS PRE/POST PROCESS
1005 STOP "IDS2PP08"
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: F9$()=HEX(FF)
: IF F$(238)="N"THEN 1110
: F9$()=F9$()&STR(C0$,1,2)&HEX(9F)&"F6$("
: CONVERT VAL(F$(239))-47TO E$,(##)
: IF F$(240)="N"THEN F$(240)="Y"
: ELSE F$(240)="N"
: F9$()=F9$()&STR(E$,1,2)&")="&HEX(22)&F$(240)&HEX(22B1FF)
: IF F$(1)<"5"THEN E$=HEX(1038)
: ELSE E$=HEX(1032)
1085 STR(E$,3)=HEX(3AA2)&"Operation is conditional on system flag "&F$(239)
: F9$()=F9$()&E$&HEX(0D0000FE)
: GOSUB 3070
1110 IF F$(237)="0"AND R4$="TJB"THEN LOAD T#2,"PPXX"1000,
: IF F$(237)="0"THEN LOAD T#2,"IDS2PP13"1000,
: IF F$(237)="1"THEN LOAD T#2,"IDS2PP26"1000,
: IF F$(412)<"3"THEN LOAD T#2,"IDS2PP26"1000,
: IF F$(416)>" "AND F$(416)<"3"THEN LOAD T#2,"IDS2PP26"1000,
: LOAD T#2,"IDS2PP27"1000,
2000 STOP #
: IF POS(F8$()=FE)+POS(F9$()=FE)<258THEN 3070
: DATA LOAD BA T#3,(E4-1)F8$()
: F8$(1)=HEX(00)
: F8$(POS(F8$()=FE))=HEX(FD)
: DATA SAVE BA T#3,(E4-1)F8$()
: F8$()=HEX(20FE)
: GOTO 3080
3070 E4=E4-1
3080 UNPACK(####)C0$TO Q
: PACK(####)C0$FROMQ+1
: STR(F8$(),POS(F8$()=FE))=F9$()
: IF F8$(256)=" "THEN F8$()=F8$()&ALL(00)
: DATA SAVE BA T#3,(E4,E4)F8$()
: PRINT HEX(06020402000E);AT(23,16);"Compiling BASIC program - Now processi
ng sector";E4-E3+1;
: RETURN
3130 STOP "END IT"
: P=1
: F$()=ALL(20)
: GOSUB '43(01)
: STR(F$(),P,01)=E$
: P=P+LEN(E$)+1
: GOSUB '43(02)
: STR(F$(),P,01)=E$
: P=P+LEN(E$)+1
: GOSUB '43(03)
: STR(F$(),P,01)=E$
: P=P+LEN(E$)+1
: GOSUB '43(04)
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP08"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"