Listing of file='IDS2PR28' on disk='vmedia/701-2716B.wvd.zip'
# Sector 370, program filename = 'IDS2PR28' 1000 REM "IDS2PR28" - Release 2.1 - REPORT DOCUMENTATION MODULE PAGE 1 1010 COM F1(8),C5$1 : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : C5$=STR(R3$(1),6,1) : GOSUB '32("IDS2sR00") : IF C5$="R"THEN E$="Report Mask Editor - Report Mask Documentation Module" : ELSE E$="Batch Program Editor - Batch Program Documentation Module" : PRINT HEX(0E);AT(0,7);E$; : DIM F2$(6)83,E1(4) : E$()="\F2" 1090 J2=0 : IF C5$="R"THEN I=6 : ELSE I=8 : GOSUB '45(1,E9$(I)) : E3$()=ALL(20) : F$()=ALL(00) : F5$=E9$(I)OR ALL(20) : GOSUB '39(F5$,3) : J1=Q : IF Q=2THEN 1250 1250 MAT REDIM E$(18)83 : E4=A : DATA LOAD DA T#P,(A)E$() : MAT REDIM E$(E8)1 : CONVERT STR(E$(),152,3)TO E1(3) : CONVERT STR(E$(),155,3)TO E1(4) : F$()=ALL(00) : E3$()=ALL(20) : IF E1(3)=0THEN 1470 : Z=3*ABS(INT(-9*E1(3)/249)) : N=3*ABS(INT(-8*E1(3)/249)) : CONVERT STR(E$(),157,3)TO O : F8=A+(Z+N)/3 : D2=F8+O/3 : O=3*ABS(INT(-9*O/249)) : IF Z>0THEN MAT REDIM F$(Z)83,E3$(N)83 1390 IF Z>0THEN DATA LOAD DA T#P,(A+6,D2)F$(),E3$() : D4=O : J5=P : MAT REDIM F$(E9)1,E3$(249)8 : E2$()=F$() : FOR I=1TO E1(3) : F1(8)=MAX(F1(8),INT(VAL(STR(E2$(I),2),2)*.0625)+VAL(E2$(I))-1) : NEXT I : GOSUB '33("IDS2sR00") 1470 FOR I=2TO 18 : GOSUB '37(I) : NEXT I : IF J1=0THEN 1510 : FOR I=1TO 7 : GOSUB '71(I) : NEXT I : Y=0 : FOR I=78TO 126STEP 8 : IF STR(E$(),I,8)<>" "THEN Y=Y+1 : NEXT I : GOSUB '55(38,Y) 1510 FOR I=35TO 43 : GOSUB '37(I) : NEXT I : GOSUB '55(39,E1(2)) : GOSUB '55(40,E1(1)) : GOSUB 2140 : IF J1<>0THEN 1600 : IF VER(E$,"H")=1THEN 1620 : GOSUB '35("User class must be 0-9 or A-F") : GOTO 1640 1580 IF E$=" "OR E$=R4$THEN 1620 : GOSUB '35("User ID (if used) must be current user's") : GOTO 1640 1590 GOSUB '71(INT(F/2-8)) : GOTO 1600 1600 GOSUB '53("Touch EXECUTE to print the documentation or FN'31 to cancel") : GOSUB '34(250) 1620 IF Q<>31THEN 1640 1630 $CLOSE#1 : LOAD T#2,"IDS2MR01"1000, 1640 IF Q<>32AND Q<>130THEN 1600 : ELSE Q=J2 1650 $OPEN 1675,#1 : ERRORGOTO 1680 1660 GOTO 1700 1675 KEYIN E6$,1675,1690 : GOSUB '63("Printer is hogge","d by another station. Wait or Cancel"," ") : GOTO 1650 1680 KEYIN E6$,1680,1690 : GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ") : GOTO 1650 1690 IF E6$=HEX(1F)THEN 1630 : GOTO 1680 1700 $OPEN #1 : E$="IDS2PR29"&"IDS2P000" : LOAD T#2,<2>E$1000, 1830 STR(F6$(),12,2)="NN" : F=Q*2+17 : GOTO 1640 1840 F=Q+33 : IF Q<>8THEN 1850 : PRINT HEX(07); : GOTO 1600 1850 J2=1 : GOSUB '43(F) : IF E$="N"THEN GOSUB '45(F,"Y") : ELSE GOSUB '45(F,"N") : GOTO 1600 1890 F=42 : GOTO 1640 1895 IF Q=0THEN 1640 : GOTO 1600 1910 DEFFN'71(X) : GOSUB '43(X*2+17) : IF E$<>" "THEN 1970 : GOSUB '45(X*2+18," ") : IF X>1THEN STR(E$(),I*45+89,45),E$(I+864),E$(I+171)=" " : F1(X)=0 : GOTO 2140 1970 F5$=E$OR ALL(20) : GOSUB '39(F5$,5) : IF Q=2THEN 2030 : F0$="File "&HEX(0722)&STR(E$,,8)&HEX(22)&" not found" : GOSUB '45(X*2+18,F0$) : GOSUB '45(X*2+17," ") 2010 IF I<>0THEN RETURN : RETURN CLEAR : GOTO 1640 2030 DATA LOAD BA T#P,(A)STR(F2$(),1,256) : IF STR(F2$(),1,4)<>HEX(8201D3E3)THEN 2010 : DATA LOAD DA T#P,(A)F2$() : IF X=1THEN 2060 : J7=0 : FOR K=108TO 176STEP 17 : IF STR(F2$(),K,8)<>" "THEN J7=J7+1 : NEXT K : CONVERT J7TO E$(X+171),(#) 2060 GOSUB '37(X*2+17) : GOSUB '45(X*2+18,STR(F2$(),22,32)) : IF STR(F2$(),10,1)<"5"THEN 2120 : F5$=STR(F2$(),82)OR ALL(20) : GOSUB '39(F5$,5) : DATA LOAD DA T#P,(A)F2$() 2120 CONVERT STR(F2$(),93,4)TO F1(X) : F1(X)=MAX(F1(X),VAL(STR(F2$(),418))) 2140 J8=F1(8) : F1(8)=0 : GOSUB '55(40,MAX(256,F1())) : FOR J=1TO 7 : F1(8)=F1(8)+F1(J) : NEXT J : F1(8)=MIN(9999,MAX(J8,1750)) : GOSUB '55(39,F1(8)) : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PR28" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"