image of READY prompt

Wang2200.org

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"