Listing of file='609Ebild' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1434, program filename = '609Ebild'
0010 REM 609Ebild, RELEASE 1-0, (03/01/81) - COPYRIGHT WANG LABS. INC.
: DIM J9(1), V4$1, I3$7
0024 GOSUB '220(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN 1010
: IF POS(HEX(002050)=V4$)=0THEN 1020
: J1$()=HEX(0001000000000000000000000000)&ALL(FF)
: I3$="AGFHWET"
: C3,C5=1
: R1$=HEX(00)
: GOSUB 1030
0048 C6=0
: C4=C3+1
: C5=C5+1
0060 IF R1$=HEX(28)THEN 118
: C3=C3+1
: C6=C6+1
: PRINT AT(23,60);C3;
: GOSUB '220(A1,1,C3,1,1)
: IF POS(HEX(0028)=R1$)=0THEN 1040
: IF V4$=" "THEN V4$=HEX(00)
: IF C6=1THEN C4$=V4$
: IF C5>7OR V4$=HEX(00)THEN 96
: IF V4$<>C4$OR POS(STR(I3$,C5-1)=V4$)=0THEN 1050
0086 IF V4$=STR(I3$,C5-1,1)THEN 96
: C5=C5+1
: IF C5>8THEN 1050
: GOTO 86
0096 IF C5=2OR C5=7THEN 108
: IF C5>7AND POS(HEX(0054)=V4$)=0THEN 1060
: IF POS(STR(V1$(),2-SGN(C6-1))=8F)=0AND R1$<>HEX(28)THEN 60
0108 IF C5>123THEN 1065
: J1$(C5)=BIN(C4,2)
: GOTO 48
0118 C5=C5-1
: V1$()=J1$()
: V4$="P"
: GOSUB '221(A1,1,1,1,1)
: IF R1$<>HEX(00)THEN 1070
: PRINT B5$(1);
: IF J9(1)=1THEN COM CLEAR V0$()
: LOAD T<INT((LEN(A5$())-1)/8)+1>A5$()
1000 % This is line 1000 - do not renumber lines 1000-1100
1010 B2$="Error reading 1st VAU in file"
: GOTO 1080
1020 B2$="Erroneous 1st page table"
: GOTO 1095
1030 PRINT AT(23,0);B5$(2);"Rebuilding Page Table - Total VAU's =";V0;", now r
eading VAU";
: RETURN
1040 B2$="Error reading VAU number"
: CONVERT C3TO STR(B2$,LEN(B2$)+2),(###)
: GOTO 1080
1050 B2$="VAU number"
: CONVERT C3TO STR(B2$,LEN(B2$)+2),(###)
: B2$=B2$&" has erroneous"
: GOTO 1095
1060 B2$="Erroneous text page"
: GOTO 1095
1065 B2$="Too many pages for page table"
: GOTO 1090
1070 B2$="Error writing page table"
1080 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
: ELSE HEXUNPACKR1$TO I2$
: B2$=B2$&" - error = "&I2$
1090 B2$=B2$&" - please Cancel"
1091 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
: KEYIN S2$,,1092
: GOTO 1091
1092 IF POS(HEX(F050)=S2$)=0THEN 1091
: GOSUB '31
1095 B2$=B2$&" VAU identifier = HEX(XX)"
: IF POS("PAGFHWET"=V4$)>0THEN STR(B2$,LEN(B2$)-6)=V4$
: ELSE HEXUNPACKV4$TO STR(B2$,LEN(B2$)-2)
: GOTO 1090
3000 DEFFN'31
: A5=0
: A5$()="609CloseJCAT"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: IF A1>-1THEN LOAD T<2>A5$()
: COM CLEAR C
: LOAD TA5$