image of READY prompt

Wang2200.org

Listing of file='IDS2PR37' on disk='vmedia/701-2716B.wvd.zip'

# Sector 511, program filename = 'IDS2PR37'
1000 REM "IDS2PR37" - REPORT/BATCH PROGRAM MASK DOCUMENTATION (REPORT LEVEL -
     PART 1)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : $OPEN #1
   : GOSUB 1390
   : E0$()=HEX(01)
   : J4=J4+1
   : E$=HEX(0C0D0D0E)&"REPORT - "&STR(E$(),2,8)
   : STR(E$,24)=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Page 1 of ##"
   : CONVERT J9TO STR(E$,43,2),(##)
   : GOSUB '48(3,E$,0)
   : D6=1
   : GOSUB '49(0)
   : I=2
   : GOSUB 1330
1060 E$="Report Description - "&HEX(22)&STR(E$(),18,32)&HEX(22)
   : STR(E$,61)="IDEAS Release 2"
   : GOSUB '48(3,E$,0)
   : GOSUB '49(0)
1070 E$="Revision No. "&STR(E$(),50,3)
   : STR(E$,23)="Last Revised "&STR(E$(),53,2)&"/"&STR(E$(),55,2)&"/"&STR(E$()
     ,57,2)
   : STR(E$,52)="Last Revised by "&STR(E$(),59,3)
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : I=3
   : GOSUB 1330
1090 E$="Version        "&STR(E$(),62,1)
   : GOSUB '48(3,E$,0)
   : GOSUB '48(22,"Edit & Document Privilege",0)
   : GOSUB '48(54,"Execution Privilege",0)
   : D6=D6+1
   : GOSUB '49(0)
1100 E$="Application  "&STR(E$(),63,3)
   : GOSUB '48(3,E$,0)
   : E$="User class "&STR(E$(),70,1)&" User ID "&STR(E$(),71,3)
   : GOSUB '48(22,E$,0)
   : STR(E$,12,1)=STR(E$(),74,1)
   : STR(E$,21)=STR(E$(),75,3)
   : GOSUB '48(54,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1110 E$="Function    "&STR(E$(),66,4)
   : GOSUB '48(3,E$,0)
   : E$="Password "&STR(E$(),134,8)
   : GOSUB '48(22,E$,0)
   : STR(E$,10,8)=STR(E$(),142,8)
   : GOSUB '48(54,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : GOSUB 1390
   : I=4
   : GOSUB 1330
1140 E$="Data files to be used in the report"
   : GOSUB '48(3,E$,0)
   : GOSUB '48(54,"Current record selection",0)
   : D6=D6+1
   : GOSUB '49(0)
   : E$="-----------------------------------"
   : STR(E$,52)="------------------------"
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1160 GOSUB '48(3,"FN    File       Description",0)
   : E$="Range   User modifiable   "&STR(E$(),774,1)
   : IF STR(E$(),1307,160)=" "THEN STR(E$,7,1)="N"
   : ELSE STR(E$,7,1)="Y"
   : GOSUB '48(54,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : IF POS(STR(E$(),449,32)<>HEX(00))=0THEN STR(E$(),449,32)=" "
1180 E$="01"&"  "&STR(E$(),78,8)&"   "&STR(E$(),449,32)
   : STR(E$,52)="Logic   User modifiable   "&STR(E$(),775,1)
   : IF STR(E$(),1468,18)=" "THEN STR(E$,58,1)="N"
   : ELSE STR(E$,58,1)="Y"
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1190 E$="02"&"  "&STR(E$(),86,8)&"   "&STR(E$(),481,32)
   : STR(E$,52)="Sort    User modifiable   "&STR(E$(),776,1)
   : IF STR(E$(),1486,5)=" "THEN STR(E$,58,1)="N"
   : ELSE STR(E$,58,1)="Y"
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : E$="03"&"  "&STR(E$(),94,8)&"   "&STR(E$(),512,32)
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1210 E$="04"&"  "&STR(E$(),102,8)&"   "&STR(E$(),544,32)
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : E$="05"&"  "&STR(E$(),110,8)&"   "&STR(E$(),576,32)
   : STR(E$,52)="Default printer address "&STR(E$(),850,3)
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1230 E$="06"&"  "&STR(E$(),118,8)&"   "&STR(E$(),608,32)
   : GOSUB '48(3,E$,0)
   : E$="User modifiable   "&STR(E$(),853,1)
   : GOSUB '48(62,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : E$="07"&"  "&STR(E$(),126,8)&"   "&STR(E$(),640,32)
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : I=4
   : GOSUB 1330
   : GOSUB 1390
1270 E$="Save program REMs       "&STR(E$(),169,1)
   : STR(E$,28)="Number of files       "&STR(E$(),160,1)
   : STR(E$,52)="Number of fields       "&STR(E$(),152,3)
   : A=75
   : B=3
   : GOSUB 1350
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1280 E$="Number if lines/page   "&STR(E$(),170,2)
   : A=24
   : B=2
   : GOSUB 1350
   : STR(E$,28)="Work buffer        "&STR(E$(),161,4)
   : A=46
   : B=4
   : GOSUB 1350
   : STR(E$,52)="  alpha                "&STR(E$(),839,3)
   : A=75
   : B=3
   : GOSUB 1350
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1290 E$="Program protection      "&STR(E$(),172,1)
   : STR(E$,28)="Record buffer      "&STR(E$(),165,4)
   : A=47
   : B=4
   : GOSUB 1350
   : STR(E$,52)="  numeric              "&STR(E$(),842,3)
   : A=75
   : B=3
   : GOSUB 1350
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1300 E$="Number of level breaks "&STR(E$(),848,2)
   : STR(E$,28)="Maximum line length "&STR(E$(),845,3)
   : A=48
   : B=3
   : GOSUB 1350
   : STR(E$,52)="Number of line formats  "&STR(E$(),155,2)
   : A=76
   : B=2
   : GOSUB 1350
   : GOSUB '48(3,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
1310 E$="Number of operations   "&STR(E$(),157,3)
   : A=24
   : B=3
   : GOSUB 1350
   : GOSUB '48(54,E$,0)
   : D6=D6+1
   : GOSUB '49(0)
   : I=4
   : GOSUB 1330
   : LOAD T#2,"IDS2PR30"1000,
1330 E$=ALL(20)
   : STR(E$,,I)=ALL(0D)
   : GOSUB '48(1,E$,0)
   : D6=D6+5
   : GOSUB '49(0)
   : RETURN
1350 Z=POS(STR(E$,A,B)<>HEX(30))
   : IF Z<>0THEN 1370
   : STR(E$,A,B)=" "
   : STR(E$,A+B-1,1)="0"
   : GOTO 1380
1370 IF Z<>1THEN $TRAN(STR(E$,A,Z-1),HEX(2030))R
1380 RETURN
1390 KEYIN E6$,1390,1400
   : RETURN
1400 IF VAL(E6$)<>31THEN RETURN
   : COM CLEAR J3
   : LOAD T#2,R3$(1)1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PR37"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"