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"