image of READY prompt

Wang2200.org

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"