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"