Listing of file='609Eneww' on disk='vmedia/701-2736G.wvd.zip'
# Sector 1092, program filename = '609Eneww' 0010 REM 609Eneww, 7/11/86-236 COPYRIGHT WANG LABS. INC. 1986 : COM V0$(J8)1 : DIM V4$1, S2$1, I2$2, I2$(123)2 0020 J1$()=HEX(00010002000000000000000000000003)&ALL(FF) : V1$()=J1$() : V4$="P" : GOSUB '225(A1,1,1,1) : IF R1$<>HEX(00)THEN 1010 : GOSUB '220(A2,1,2,1,1) : IF R1$<>HEX(00)THEN 1020 : A7$(2)=R2$ : $PACK(F=HEX(A019A0066006))V1$()FROMA6$(),A7$(),A0() : V4$="A" : GOSUB '225(A1,1,1,1) : IF R1$<>HEX(00)THEN 1030 0055 IF POS(J9$()<>20)=0THEN 60 : V4$="E" : V1$()=J9$() : GOSUB '222(A1,1,VAL(J1$(8),2),1,1) : IF R1$<>HEX(00)THEN 1035 : V4=1 : J1$(7)=J1$(8) : GOSUB 150 : GOSUB 180 0060 GOSUB '220(A2,1,1,1,1) : IF POS(HEX(0028)=R1$)=0THEN 1040 : I0=VAL(STR(V1$(),15),2) : GOSUB '220(A2,1,I0,1,2) : IF POS(HEX(0028)=R1$)=0THEN 1050 : STR(V0$(),POS(STR(V1$(),2)=83)+2)=" " : V4$="T" : GOSUB '225(A1,1,1,2) : IF R1$<>HEX(00)THEN 1060 : A5$()="609EstrtJCATSMAL" : LOAD T<2>A5$() 0150 IF V4=0OR C3=A0(3)THEN RETURN : I2$()=ALL(00) : C=7 0160 C=C+1 : IF C>7THEN 170 : IF J1$(C)>HEX(0000)THEN I2$(C)=BIN(ABS(V4),2) : GOTO 160 0170 I2$(C)=BIN(ABS(V4),2) : IF C<A0(3)THEN STR(I2$(),C*2+1,(A0(3)-C)*2)=STR(I2$(),C*2-1,(A0(3)-C)*2) : IF V4>0THEN J1$()=ADDCI2$() : ELSE J1$()=SUBCI2$() : RETURN 0180 V1$()=J1$() : V4$="P" : GOSUB '221(A1,1,1,1,1) : IF R1$<>HEX(00)THEN 1010 : RETURN 1000 % This is line 1000 - do not renumber lines 1000-1100 1010 B2$="Error saving page table" : GOTO 1070 1020 B2$="Error reading prototype admin block" : GOTO 1070 1030 B2$="Error writing admin block" : GOTO 1070 1035 B2$="Error writing key words" : GOTO 1070 1040 B2$="Error reading prototype page table" : GOTO 1070 1050 B2$="Error reading 1st prototype page" : GOTO 1070 1060 B2$="Error saving first text page" 1070 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##) : ELSE HEXUNPACKR1$TO I2$ : B2$=B2$&" - error = "&I2$ : IF Y5$=" "THEN B2$=B2$&" - please Cancel" : IF Y5$<>" "THEN GOSUB '31 1080 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1); : KEYIN S2$,,1090 : GOTO 1080 1090 IF POS(HEX(F050)=S2$)=0THEN 1080 : GOSUB '31 3000 DEFFN'31 : A5=0 : A5$()="609CloseJCATSMAL" : A5$=R3$() : R3$()=STR(R3$(),10) : IF A1>-1OR A2>-1THEN LOAD T<2>A5$() : COM CLEAR C : LOAD TA5$