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$