image of READY prompt

Wang2200.org

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"