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"