Listing of file='IDS2PS10' on disk='vmedia/701-2716B.wvd.zip'
# Sector 758, program filename = 'IDS2PS10' 1000 REM "IDS2PS10" - SCREEN MASK DOCUMENTATION (SCREEN LEVEL - PART 1) 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" 1015 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) : COM J4,J9,F1(9),J6,C5$1 : C5$=STR(R3$(1),6,1) : GOSUB '39(E9$(2),3) : MAT F=CON : E$()=" " : MAT REDIM E$(24)83 1040 DATA LOAD DA T#P,(A)E$() : IF STR(E$(),138,1)=HEX(00)THEN 1045 : MAT REDIM E3$(VAL(STR(E$(),138)))83 : DATA LOAD DA T#P,(A+8+VAL(STR(E$(),137))/3)E3$() : MAT REDIM E3$(249)8 1045 GOSUB '33(E9$(2)) : D2=VAL(STR(E$(),135)) : J6=VAL(STR(E$(),136)) : IF N=0OR D=0OR N=27THEN 1050 : MAT COPY -E2$()<9*F0+1,83*N-9*F0>TO -E2$()<9*F0+1+83*(27-N),83*N-9*F0> : STR(E2$(),9*F0+1,83*(27-N))=ALL(00) 1050 MAT REDIM E2$(250)9,E$(E8)1,F$(E8)1,E3$(249)8 : $TRAN(E$()<153,1840>,HEX(4009))R : 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$ 1056 E$=ALL("#") : F0=1 : N=D2 : IF N=0THEN 1058 : FOR I=1TO N : F0=MAX(F0,(INT(VAL(STR(E2$(I),2),2)*.0625)+VAL(E2$(I))-1)*SGN(INT(VAL(STR (E2$(I),2),2)*.0625))) : IF INT(VAL(STR(E2$(I),7))*.015625)>0OR MOD(VAL(STR(E2$(I),5)),2)=1THEN ST R(E$(),153+80*INT(VAL(STR(E2$(I),4))*.125)+INT(VAL(STR(E2$(I),5))*.5),VAL (E2$(I)))=E$ : NEXT I 1058 J9=INT(N/50)+2 : J4=0 : IF MOD(N,50)+2+INT(J6/4+.8)>55THEN J9=J9+1 : GOSUB 3030 1090 E$="Revision number "&STR(E$(),141,3) : GOSUB '48(3,E$,0) : E$="Version "&STR(E$(),42,1) : GOSUB '48(32,E$,0) : GOSUB '48(62,"User class",0) : GOSUB '48(82,STR(E$(),50,1),0) : GOSUB '49(0) : GOSUB '63(" "," Now printing documentation."," ") 1100 E$="Last revised "&STR(E$(),147,2)&"/"&STR(E$(),149,2)&"/"&STR(E$(),151,2 ) : GOSUB '48(3,E$,0) : E$="Application code "&STR(E$(),43,3) : GOSUB '48(32,E$,0) : GOSUB '48(62,"User ID code",0) : GOSUB '48(80,STR(E$(),51,3),0) : GOSUB '49(0) 1110 E$="Last revised by "&STR(E$(),144,3) : GOSUB '48(3,E$,0) : E$="Function code "&STR(E$(),46,4) : GOSUB '48(32,E$,0) : GOSUB '48(62,"Password",0) : GOSUB '48(75,STR(E$(),54,8),0) : GOSUB '49(0) : GOSUB '49(0) 1120 GOSUB 3010 : GOSUB 3000 : FOR I=1TO 24 : CONVERT ITO E$,(##) : GOSUB '48(0,E$,2) : GOSUB '48(83,E$,2) : GOSUB '48(3,STR(E$(),80*I+73),80) : GOSUB '49(0) : NEXT I : GOSUB 3000 : GOSUB 3010 : IF STR(E$(),78,56)<>" "THEN GOSUB '48(3,"Data files associated with this screen Bytes",0) : GOSUB '48(57,"General screen attributes",0) : GOSUB '49(0) 1140 RESTORE : DATA "This is a sub screen","Skip ahead keys enabled","Skip back keys ena bled","Cancel key (FN'31) enabled","Clear work buffer @ load","Display al l fields @ load","First line is bright" 1150 FOR I=1TO 7 : IF STR(E$(),I*8+70,8)=" "THEN 1160 : CONVERT ITO E$,(#) : GOSUB '48(0,E$,1) : E$=STR(E$(),I*8+70,8) : GOSUB '48(-1,E$,8) : OR (E$,20) : MAT REDIM F$(3)83 : GOSUB '39(E$,5) : IF Q=0THEN 1160 : DATA LOAD DA T#P,(A)F$() : GOSUB '48(12,STR(F$(),22),32) : IF STR(F$(),10,1)<"5"THEN 1155 : E$=STR(F$(),82,8)OR ALL(20) : GOSUB '39(E$,5) : DATA LOAD DA T#P,(A)F$() 1155 CONVERT STR(F$(),93,4)TO Q : F1(1)=1 : FOR J=I+1TO 8 : F1(J)=F1(I)+Q : NEXT J : F1(9)=MAX(256,Q) : CONVERT F1(I)TO E$,(####) : CONVERT -F1(I+1)+1TO STR(E$,5,5),(-####) : GOSUB '48(45,E$,9) 1160 MAT REDIM F$(E9)1 : READ E$ : GOSUB '48(57,E$,0) : GOSUB '48(84,STR(E$(),I+133),1) : GOSUB '49(0) : NEXT I : N=D2 : LOAD T#2,"IDS2PS11"1000, 3000 GOSUB '48(0," 1234567890123456789012345678901234567890123456789012345678 9012345678901234567890",0) : GOSUB '49(0) : RETURN 3010 GOSUB '48(0," 1 2 3 4 5 6 7 8",0) : GOSUB '49(0) : RETURN 3020 STR(E$,7)="7" : STR(E$,1,POS(E$>30)-1)=" " : IF STR(E$,1,5)=" "THEN E$=" 0" : RETURN 3030 E0$()=HEX(01) : J4=J4+1 : GOSUB '48(0,HEX(0C),0) : GOSUB '49(0) : GOSUB 3040 : E$="Screen "&HEX(22)&STR(E9$(2),1,8)&HEX(22)&" - "&STR(E4$(),1,32) : GOSUB '48(3,E$,0) : E$=STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5,2)&" Page # of #" : CONVERT J4TO STR(E$,16,1),(#) : CONVERT J9TO STR(E$,21,1),(#) : GOSUB '48(62,E$,0) : GOSUB '49(0) : GOSUB '49(0) : RETURN 3040 E4$()=STR(E$(),10,24)&ALL(00) : FOR I=1TO 32 : ROTATEC(STR(E4$(),I),-2) : NEXT I : ADD(E4$(),20) : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS10" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"