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"