Listing of file='IDS2PR17' on disk='vmedia/701-2716B.wvd.zip'
# Sector 236, program filename = 'IDS2PR17' 1000 REM "IDS2PR17" - Release 2.1 - REPORT GENERATOR - PROGRAM GENERATION PART 1 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM E3,E4,E1,C0,D$(30)2 : E1,D7=0 : 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) 1025 F5$="IDS2wS" : CONVERT R0TO STR(F5$,7),(##) : LIMITS T#3,F5$,A,B,C,D : IF D>0THEN 1040 : IF D<0THEN 1035 : DATA SAVE DC OPEN T#3,(186)F5$ : DSKIP #3,184S : DATA SAVE DC #3,END : GOTO 1025 1035 DATA SAVE DC OPEN T#3,(F5$)F5$ : DSKIP #3,184S : DATA SAVE DC #3,END : GOTO 1025 1040 IF B-A>=185THEN 1050 : SCRATCH T#3,F5$ : E7$="JUNK" : Q=-1 1042 Q=Q+1 : CONVERT QTO STR(E7$,5),(####) : LIMITS T#3,E7$,A,B,C,D : IF D<>0THEN 1042 : SAVE T#3,(F5$)E7$1010,1010 : SCRATCH T#3,E7$ : GOTO 1025 1050 E3,E4=A : GOSUB 2010 : F$()=HEX(40)&STR(E$(),2,8)&HEX(FD)&ALL(00) : GOSUB 2000 : IF STR(E$(),50,3)<>" "THEN STR(E$(),50,3)=" 0" : F$()=HEX(00FF1000A2)&STR(E$(),2,8)&" - "&STR(E$(),18,32) : STR(F$(),49)=" Rev#"&STR(E$(),50,3)&" "&STR(R4$,,3)&" "&STR(R2$,,2)&"/"&S TR(R2$,3,2)&"/"&STR(R2$,5,2)&HEX(0D0000FF1001)&"E$="&HEX(22) 1110 F$()=F$()&STR(E$(),62,12)&STR(E$(),134,8)&E$(172)&"N"&HEX(22)&":F6$="&HEX (22)&E$(74)&HEX(22)&":F3$="&HEX(22)&STR(E$(),75,3)&HEX(22)&":F7$="&HEX(22 )&STR(E$(),142,8)&HEX(223AD8)&E$(1)&HEX(0D0000FF1002) 1180 F$()=F$()&HEX(9722)&STR(E$(),2,8)&" "&STR(E$(),18,32)&HEX(22)&",1," : GOSUB '71(1605,HEX(0D0000)) : F$()=F$()&HEX(FF10039722)&STR(E$(),78,8)&" "&STR(E$(),449,32)&HEX(22)&",1 ," : GOSUB '71(1613,HEX(0D0000FD)) : GOSUB 2000 1210 F$()=HEX(00FF10049722)&STR(E$(),86,8)&" "&STR(E$(),481,32)&HEX(222C) : GOSUB '71(1617,",") : GOSUB '71(1621,HEX(0D0000)) : F$()=F$()&HEX(FF10059722)&STR(E$(),94,8)&" "&STR(E$(),513,32)&HEX(222C) : GOSUB '71(1625,",") : GOSUB '71(1629,HEX(0D0000)) 1230 F$()=F$()&HEX(FF10069722)&STR(E$(),102,8)&" "&STR(E$(),545,32)&HEX(222C) : GOSUB '71(1633,",") : GOSUB '71(1637,HEX(0D0000)) : F$()=F$()&HEX(FF10079722)&STR(E$(),110,8)&" "&STR(E$(),577,32)&HEX(222C) : GOSUB '71(1641,",") : GOSUB '71(1645,HEX(0D0000FD)) : GOSUB 2000 1250 F$()=HEX(00FF10089722)&STR(E$(),118,8)&" "&STR(E$(),609,32)&HEX(222C) : GOSUB '71(1649,",") : GOSUB '71(1653,HEX(0D0000)) : F$()=F$()&HEX(FF10099722)&STR(E$(),126,8)&" "&STR(E$(),641,32)&HEX(222C) : GOSUB '71(1657,",") : GOSUB '71(1661,HEX(0D0000)) : CONVERT STR(E$(),842,3)TO Q : ERRORQ=1 1256 E$=" " : $PACK(F=HEX(1004))E$FROMMAX(Q,1) : E$=STR(E$,2) : F$()=F$()&HEX(FF1010A6)&"F("&E$&"):"&HEX(9E553D31B2383A98)&"E9$(U),E(U),E 0(U):"&HEX(9D55)&":E$="&HEX(22)&"\CC\CF\C1\C4\D3\D5\C2\D3"&HEX(22)&":U=4: "&HEX(A15423322C22)&"IDS2PBX0"&HEX(22FF10002CFF19900D0000FF19909CFF19900D 0000FD) : GOSUB 2000 1290 LOAD T#2,"IDS2PR18"1000, 1300 DEFFN'71(Q,F5$) : E$=STR(E$(),Q,4) : FOR I=1TO 3 : IF STR(E$,,1)="0"THEN E$=STR(E$,2) : NEXT I : F$()=F$()&E$&F5$ : RETURN 2000 DATA SAVE BA T#3,(E4,E4)STR(F$(),1,256) 2010 PRINT HEX(06020402000E);AT(23,16);"Compiling BASIC program - Now processi ng sector";E4-E3+1; : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR17" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"