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"