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"