Listing of file='IDS2PP02' on disk='vmedia/701-2717B.wvd.zip'
# Sector 809, program filename = 'IDS2PP02'
1000 REM "IDS2PP02" - Release 2.1 - INTERACTIVE PROGRAM GENERATOR - PART 1
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: COM E3,E4,E1,C0,E2(8),C8$64,D$(30)2
: E1,D7=0
: MAT E2=ZER
: F5$="IDS2PPXX"
: FOR I=6TO 30
: CONVERT ITO STR(F5$,7,2),(##)
: LIMITS T#2,F5$,A,B,C,D
: D$(I)=BIN(A,2)
: NEXT I
: LIMITS T#2,"IDS2SUB8",A,B,C,D
: D$(1)=BIN(A,2)
: D$(5)=E$(471)
1030 IF E$(469)="Y"THEN D3=1
: ELSE E2(1)=0
: IF E$(472)="Y"THEN E2(2)=1
: ELSE D4=0
1050 F5$="IDS2wS"
: CONVERT R0TO STR(F5$,7),(##)
: LIMITS T#3,F5$,A,B,C,D
: IF D>0THEN 1070
: DATA SAVE DC OPEN T#3,(186)F5$
: ERRORGOSUB '35("Not enough room for work file -- FN '31tocancel")
: GOSUB '34(250)
: LOAD T#2,R3$(1)1000,
1065 DSKIP #3,184S
: DATA SAVE DC #3,END
: GOTO 1050
1070 IF B-A>=185THEN 1100
: SCRATCH T#3,F5$
: E7$="JUNK"
: Q=-1
1080 Q=Q+1
: CONVERT QTO STR(E7$,5),(####)
: LIMITS T#3,E7$,A,B,C,D
: IF D<>0THEN 1080
: SAVE T#3,(F5$)E7$1010,1010
: SCRATCH T#3,E7$
: GOTO 1050
1100 E3,E4=A
: GOSUB 1310
: F$()=HEX(40)&STR(E$(),1,8)&HEX(FD)&ALL(00)
: GOSUB 1300
: F$()=HEX(00FF1000A2)&STR(E$(),1,8)&" - "&STR(E$(),9,32)
: GOSUB '43(3)
: IF E$=" "THEN Q=-1
1170 GOSUB '55(3,Q+1)
: STR(F$(),48)=" Rev#"&E$&" "&R4$
: GOSUB '45(4,R2$)
: F$()=F$()&" "&STR(E$,1,2)&"/"&STR(E$,3,2)&"/"&STR(E$,5,2)&" "&HEX(0D0000F
F1001)&"E$="&HEX(22)&STR(E$(),437,20)&E$(469)&E$(472)&HEX(22)
1180 F$()=F$()&":F6$="&HEX(22)&E$(457)&HEX(22)&":F3$="&HEX(22)&STR(E$(),458,3)
&HEX(22)&":F7$="&HEX(22)&STR(E$(),461,8)&HEX(223AD8F0)&E$(471)&HEX(0D0000
)
: F$()=F$()&HEX(FF10029722)&STR(E$(),53,8)&" "&STR(E$(),61,32)&HEX(222C)&E$
(96)&","
: GOSUB '43(11)
: F$()=F$()&STR(E$,POS(E$>20))
1200 F$()=F$()&HEX(0D0000FF10039722)&STR(E$(),101,8)&" "&STR(E$(),109,32)&HEX(
222C)&E$(144)&","
: GOSUB '43(16)
: F$()=F$()&STR(E$,POS(E$>20))
: F$()=F$()&HEX(0D0000FD)
: GOSUB 1300
: F$()=HEX(00FF10049722)&STR(E$(),149,8)&" "&STR(E$(),157,32)&HEX(222C)
: GOSUB '71(22,",")
: GOSUB '71(21,HEX(0D0000))
1220 F$()=F$()&HEX(FF10059722)&STR(E$(),197,8)&" "&STR(E$(),205,32)&HEX(222C)
: GOSUB '71(27,",")
: GOSUB '71(26,HEX(0D0000))
: F$()=F$()&HEX(FF10069722)&STR(E$(),245,8)&" "&STR(E$(),253,32)&HEX(222C)
: GOSUB '71(32,",")
: GOSUB '71(31,HEX(0D0000))
1240 F$()=F$()&HEX(FF10079722)&STR(E$(),293,8)&" "&STR(E$(),301,32)&HEX(222C)
: GOSUB '71(37,",")
: GOSUB '71(36,HEX(0D0000FD))
: GOSUB 1300
: F$()=HEX(00FF10089722)&STR(E$(),341,8)&" "&STR(E$(),349,32)&HEX(222C)
: GOSUB '71(42,",")
: GOSUB '71(41,HEX(0D0000))
1260 F$()=F$()&HEX(FF10099722)&STR(E$(),389,8)&" "&STR(E$(),397,32)&HEX(222C)
: GOSUB '71(47,",")
: GOSUB '71(46,HEX(0D0000))
: FOR I=0TO 7
: STR(C8$,I*8+1)=STR(E$(),I*48+53)
: NEXT I
: F$()=F$()&HEX(FF10109E553D31B2383A98)&"E9$(U),E(U),E0(U):"&HEX(9D55)&":E$
="&HEX(22)&"\CC\CF\C1\C4\D3\D5\C2\D3"&HEX(22)&":U=4"
1275 IF E$(471)="M"THEN F$()=F$()&HEX(3AA15423322C22)&"IDS2PPX0"&HEX(22FF10002
CFF10103A9CFF10253A9CFF10330D0000FD)
: ELSE F$()=F$()&HEX(3A9CFF37003A9CFF10253A9CFF10330D0000FD)
: GOSUB 1300
: LOAD T#2,"IDS2PP05"1000,
1290 DEFFN'71(Q,F5$)
: GOSUB '43(Q)
: E$=E$&F5$
: F$()=F$()&STR(E$,POS(E$>20))
: RETURN
1300 DATA SAVE BA T#3,(E4,E4)STR(F$(),1,256)
1310 PRINT HEX(06020402000E);AT(23,0);"Compiling BASIC program - Processing se
ctor";E4-E3+1;
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PP02"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"