image of READY prompt

Wang2200.org

Listing of file='609Ebild' on disk='vmedia/701-2737G.wvd.zip'

# Sector 245, 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$