image of READY prompt

Wang2200.org

Listing of file='IDS2PS12' on disk='vmedia/701-2716B.wvd.zip'

# Sector 790, program filename = 'IDS2PS12'
1000 REM "IDS2PS12" - Release 2.1 - SCREEN MASK DOCUMENTATION (FIELD LEVEL)
1005 DEFFNZ(F)=INT(VAL(STR(E2$(F),2),2)*.0625)
   : DEFFNA(F)=INT(VAL(STR(E2$(F),8))*.015625)
   : DEFFNF(F)=MOD(VAL(STR(E2$(F),6)),8)
   : DEFFNY(F)=INT(VAL(STR(E2$(F),6))*.0625)
   : DEFFNX(F)=INT(MOD(VAL(STR(E2$(F),3)),4)*.5)
   : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM F4,C9$56,C6$32
   : C9$=STR(E$(),78)
   : DIM F4$(2)1
   : F4$()=".Y"
   : IF N>0THEN 1300
   : IF J6>0THEN GOSUB 3000
1300 E1=0
   : IF N=0THEN 1505
   : F5$="####"
   : FOR I=1TO N
   : ON MOD(I,50)GOSUB 3020
   : E$=HEX(0000)
   : PRINTUSING TO E$,F5$,I
   : STR(E0$(),4)=STR(E$,4,3)
   : STR(E0$(),8)=E3$(I)
   : IF FNF(I)>0THEN STR(E0$(),17)=STR(E$(),FNF(I)*8+70,8)
   : E$=HEX(0000)
   : PRINTUSING TO E$,F5$,INT(VAL(STR(E2$(I),4))*.125)+1
   : STR(E0$(),26,2)=STR(E$,5)
1345 E$=HEX(0000)
   : PRINTUSING TO E$,F5$,INT(VAL(STR(E2$(I),5))*.5)+1
   : STR(E0$(),29,2)=STR(E$,5)
   : E$=HEX(0000)
   : PRINTUSING TO E$,F5$,VAL(E2$(I))
   : STR(E0$(),32,3)=STR(E$,4)
   : E$=HEX(0000)
   : PRINTUSING TO E$,F5$,FNZ(I)
   : STR(E0$(),36,4)=STR(E$,3)
   : E$=HEX(0000)
   : PRINTUSING TO E$,F5$,FNZ(I)-1+VAL(E2$(I))
   : STR(E0$(),41,4)=STR(E$,3)
1350 CONVERT FNY(I)TO STR(E0$(),46),(#)
   : J1=46
   : GOSUB '71(FNX(I))
   : GOSUB '71(MOD(VAL(STR(E2$(I),3)),2))
   : IF FNY(I)<4THEN CONVERT MOD(VAL(STR(E2$(I),4)),8)TO STR(E0$(),52),(#)
   : ELSE STR(E0$(),52)=F4$(1)
   : CONVERT INT(VAL(STR(E2$(I),7))*.015625)TO STR(E0$(),54),(#)
   : J1=54
1360 GOSUB '71(MOD(VAL(STR(E2$(I),5)),2))
   : GOSUB '71(INT(MOD(VAL(STR(E2$(I),3)),16)*.125))
   : GOSUB '71(INT(MOD(VAL(STR(E2$(I),3)),8)*.25))
   : GOSUB '71(INT(MOD(VAL(STR(E2$(I),8)),4)*.5))
   : GOSUB '71(INT(MOD(VAL(STR(E2$(I),8)),64)*.03125))
   : E6$=STR(E2$(I),9)
1410 Q=INT(MOD(VAL(STR(E2$(I),6)),16)/8)
   : Q=(Q+MOD(VAL(STR(E2$(I),7)),64))*Q
   : CONVERT QTO F9$,(##)
   : IF Q<10THEN STR(F9$,1,1)=" "
   : IF Q=0THEN F9$=" ."
   : E$=STR(F9$,,2)&STR(E0$(),3,4)
1420 STR(E0$(),66)=E$
   : STR(E0$(),,1)=HEX(54)
   : L=71
   : IF STR(E0$(),54,3)="0 ."THEN L=84
   : IF L>71THEN STR(E0$(),73)="(work field)"
   : GOSUB '49(L)
   : F4=F4+1
   : IF MOD(INT(VAL(STR(E2$(I),6))/8),2)=1OR VER(E3$(I),"@FLD###@")=8THEN E1=1
   : NEXT I
1505 IF J6=0THEN 2000
   : IF MOD(N,50)+2+INT(J6/4+.8)<=55THEN 1506
   : GOSUB 3000
1506 IF N>0THEN GOSUB 3080
   : GOSUB '48(3,"Box/Line Documentation:",0)
   : GOSUB 3080
   : E$="Type    R  C  V  H"
   : FOR I=1TO MIN(4,J6)
   : GOSUB '48(I*21-18,E$,0)
   : NEXT I
   : GOSUB 3080
   : E$="------ -- -- -- --"
   : FOR I=1TO MIN(4,J6)
   : GOSUB '48(I*21-18,E$,0)
   : NEXT I
   : GOSUB 3080
1510 FOR I=1TO J6
   : UNPACK(##)STR(E2$(),2242-I*4)TO A,B,C,D
   : E$=ALL(00)
   : A=A+1
   : B=B+1
   : IF C=0THEN 1540
   : IF D=0THEN 1535
   : PRINTUSING TO E$,1530,"Box",A,B,C,D
   : GOTO 1550
1530 %###### ## ## ## ##
1535 PRINTUSING TO E$,1530,"Line-V",A,B,C,"--"
   : GOTO 1550
1540 PRINTUSING TO E$,1530,"Line-H",A,B,"--",D
1550 GOSUB '48(MOD(I-1,4)*21+3,STR(E$,3),18)
   : IF MOD(I,4)=0OR I=J6THEN GOSUB 3080
   : NEXT I
2000 IF J3<>1THEN ON E1GOTO 2010
   : IF R3$(1)="IDS2MS01"THEN COM CLEAR J3
   : $CLOSE#1
   : LOAD T#2,R3$(1)1000,
2010 LOAD T#2,"IDS2PS27"1000,
3000 F4=0
   : E0$()=HEX(01)
   : J4=J4+1
   : GOSUB '48(0,HEX(0C),0)
   : GOSUB 3080
   : GOSUB 3010
   : 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$,17,1),(#)
   : CONVERT J9TO STR(E$,22,1),(#)
   : GOSUB '48(62,E$,0)
   : GOSUB 3080
   : GOTO 3080
3010 E4$()=STR(E$(),10,24)&ALL(00)
   : FOR J=1TO 32
   : ROTATEC(STR(E4$(),J),-2)
   : NEXT J
   : ADD(E4$(),20)
   : C6$=E4$()
   : RETURN
3020 GOSUB 3000
   : GOSUB '48(3,"                                          T J Z   D     F E
     N  #",0)
   : GOSUB 3080
   : GOSUB '48(3,"                       R  C               Y U F D I K R U X
     B  E",0)
   : GOSUB 3080
3050 GOSUB '48(3,"FLD            FILE    O  O      POSITION P S I E S B Q L E
     P  D FLD",0)
   : GOSUB 3080
   : GOSUB '48(3," #    NAME   (IF ANY)  W  L LEN  BEG  END E T L C P D D L C
     S  T  #",0)
   : GOSUB 3080
3070 GOSUB '48(3,"--- -------- -------- -- -- --- ---- ---- - - - - - - - - -
     - -- ---",0)
3080 GOSUB '49(0)
   : F4=F4+1
   : RETURN
3090 DEFFN'71(X)
   : J1=J1+2
   : STR(E0$(),J1,1)=F4$(X+1)
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS12"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"