Listing of file='IDS2PS09' on disk='vmedia/701-2716B.wvd.zip'
# Sector 745, program filename = 'IDS2PS09'
1000 REM "IDS2PS09" - SCREEN MASK EDITOR - DOCUMENTATION SET UP MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sS00")
: DIM F1(8),F2$(6)83,E1(4)
: E$()="\F3"
: PRINT HEX(06020402000E);AT(0,40);"Documentation"
: GOSUB '45(1,E9$(2))
: E3$()=ALL(20)
: F$()=ALL(00)
: GOSUB '39(E9$(2),3)
: MAT REDIM E$(24)83
: DATA LOAD DA T#P,(A)E$()
: MAT REDIM E$(E8)1
: E1(3)=VAL(E$(135))
: E1(4)=VAL(E$(136))
1210 S=A+8+VAL(E$(137))/3
: N=VAL(E$(138))
: IF N=0THEN 1280
: MAT REDIM E3$(N)83
: DATA LOAD DA T#P,(S)E3$()
: MAT REDIM E3$(249)8
1280 F5$=E$(134)&ALL(00)
: FOR I=1TO 7
: ROTATEC(STR(F5$,I),-7)
: NEXT I
: $TRAN(F5$,HEX(4E005901))R
: STR(E$(),134,7)=F5$
: GOSUB '33(E9$(2))
: F$()=E2$()
: IF E1(3)=0THEN 1370
: FOR I=1TO E1(3)
: F1(8)=MAX(F1(8),FNP(I)+FNL(I)-1)
: NEXT I
1370 GOSUB '33("IDS2sS00")
: E$=STR(E$(),10,24)&ALL(00)
: FOR I=1TO 32
: ROTATEC(STR(E$,I),-2)
: NEXT I
: ADD(E$,20)
: GOSUB '45(2,E$)
: FOR I=33TO 37
: GOSUB '37(I)
: NEXT I
: FOR I=3TO 11
: GOSUB '37(I)
: NEXT I
: FOR I=1TO 7
: GOSUB '71(I)
: NEXT I
: FOR I=26TO 32
: GOSUB '37(I)
: NEXT I
: FOR I=40TO 41
: GOSUB '55(I,E1(I-37))
: NEXT I
: GOSUB 1930
1500 GOSUB '53("Touch EXECUTE to print the documentation or FN'31 to cancel")
: GOSUB '34(250)
: IF Q<>31THEN 1540
1530 $CLOSE#1
: LOAD T#2,"IDS2MS01"1000,
1540 IF Q<>32AND Q<>130THEN 1500
: ELSE Q=J2
1550 $OPEN 1580,#1
: ERRORGOTO 1580
1555 GOTO 1600
1560 F2$()=ALL(00)
: I=0
: $GIO#1,(0101020012124000,D2$)
: $GIO#1,(0101020012124000,D2$)
: IF STR(D2$,8,1)=HEX(10)THEN 1580
1570 I=I+1
: $GIO#1,(010102001212A200,D2$)STR(F2$(),,256)
: IF STR(D2$,8,1)=HEX(10)THEN 1580
: IF I<12THEN 1570
: GOTO 1600
1580 KEYIN E6$,1580,1590
: GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
: GOTO 1550
1590 IF E6$=HEX(1F)THEN 1530
1600 $OPEN #1
: LOAD T#2,"IDS2PS10"1000,
1630 F=Q+18
: J2=1
: GOSUB '43(F)
: IF E$="N"THEN GOSUB '45(F,"Y")
: ELSE GOSUB '45(F,"N")
: GOTO 1500
1680 STOP #
1700 DEFFN'71(X)
: GOSUB '43(X*2+10)
: IF E$<>" "THEN 1760
: GOSUB '45(X*2+11," ")
: F1(X)=0
: GOTO 1930
1760 F5$=E$OR ALL(20)
: GOSUB '39(F5$,5)
: IF Q=2THEN 1820
: GOSUB '45(X*2+11," ")
1800 GOSUB '35("Specified file is not an IDEAS data file")
: GOTO 1980
1820 DATA LOAD BA T#P,(A)STR(F2$(),1,256)
: IF STR(F2$(),1,4)<>HEX(8201D3E3)THEN 1800
: DATA LOAD DA T#P,(A)F2$()
: GOSUB '37(X*2+10)
: GOSUB '45(X*2+11,STR(F2$(),22,32))
: IF STR(F2$(),10,1)<"5"THEN 1910
: F5$=STR(F2$(),82)OR ALL(20)
: GOSUB '39(F5$,5)
: DATA LOAD DA T#P,(A)F2$()
1910 CONVERT STR(F2$(),93,4)TO F1(X)
: F1(X)=MAX(F1(X),VAL(STR(F2$(),418)))
1930 J8=F1(8)
: F1(8)=0
: GOSUB '55(39,MAX(256,F1()))
: FOR J=1TO 7
: F1(8)=F1(8)+F1(J)
: NEXT J
: F1(8)=MIN(9999,MAX(J8,1750))
: GOSUB '55(38,F1(8))
1980 RETURN
2000 DEFFNP(F)=INT(VAL(STR(E2$(F),2),2)*.0625)
: DEFFNL(F)=VAL(E2$(F))
: DEFFNR(F)=INT(VAL(STR(E2$(F),4))*.125)
: DEFFNC(F)=INT(VAL(STR(E2$(F),5))*.5)
: DEFFND(F)=INT(VAL(STR(E2$(F),7))*.015625)
: ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PS09"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"