Listing of file='IDS2PP05' on disk='vmedia/701-2717B.wvd.zip'
# Sector 530, program filename = 'IDS2PP05'
1000 REM "IDS2PP05" - Release 2.1 -INTERACTIVE PROGRAM GENERATOR-PART 2(CUSTOM
)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM F8$(256)1,E6,C4,C5,C0$2,F1,D7,C6$2,C7$8,J0,J7
: MAT REDIM F$(3)83
: GOSUB '39(STR(E$(),53,8),3)
: J0=P
: DATA LOAD DA T#P,(A)F$()
: MAT REDIM F$(E9)1
: C5,N=VAL(F$(135))
: MAT REDIM E3$(249)8
: E3$()=" "
: MAT REDIM E3$(VAL(F$(138)))83
: J7=A+8+VAL(F$(137))/3
: DATA LOAD DA T#P,(J7)E3$()
: MAT REDIM E3$(249)8
1050 FOR J=0TO 1
: C4=E6
: E6=E4
: FOR I=1TO N
: IF MOD(I-1,60)>0THEN 1120
: F8$()=HEX(00FF10)&BIN(37+J*14+INT((I-1)/60))&HEX(9446)
: IF I<61THEN 1110
: $PACK(F=HEX(1004))E$FROM1-I
: F8$()=F8$()&STR(E$,1,4)
1110 F8$()=F8$()&HEX(9C)
1120 IF J=0THEN E$=HEX(FF1032)
: ELSE E$=HEX(FF1038)
: F8$()=F8$()&STR(E$,1,3)&HEX(0D0000FD)&ALL(00)
: IF I<NAND MOD(I,60)>0THEN STR(F8$(),POS(F8$()=0D))=","
: IF I=NAND J=1THEN F8$(1)=HEX(20)
: IF I=NAND J=1THEN $TRAN(F8$(),HEX(FEFD))R
: IF I=NOR MOD(I,60)=0THEN GOSUB 3010
: NEXT I
1175 ON JGOTO 1180
: F8$()=HEX(00FF10329CFF10320D0000FD)
: IF STR(D$(5),,1)="L"THEN F8$()=HEX(00FF1032463DF8462B312C463029)&HEX(3A46
3624283532293D224E220D0000FD)
: GOSUB 3010
1180 NEXT J
: F1=1
: D7=0
: C7$=STR(E$(),53)
: GOSUB '33(C7$)
: C0$=HEX(1100)
: F8$()=HEX(20FF10389CFF1038FE)
: IF STR(D$(5),,1)<>"L"THEN 1200
1196 F8$()=HEX(20FF1038463624283532293D224E22)&HEX(3A483D31)&HEX(3A9A273334284
629)&HEX(3A4533243D222022)&HEX(3A9F463624283532293D224E228A463C3D463020B1
FF1025)&HEX(3A9CFF1032FE)
1200 LOAD DA T#2,(D$(6))1000,
3000 STOP #
3010 DATA SAVE BA T#3,(E4,E4)F8$()
: PRINT HEX(06020402000E);AT(23,0);"Compiling BASIC program - Processing se
ctor";E4-E3+1;
: RETURN
3040 DEFFN'71
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP05"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"