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"