Listing of file='609Escm5' on disk='vmedia/701-2736G.wvd.zip'
# Sector 911, program filename = '609Escm5' 0010 REM ************************ 609Escm5 ******************************** 0011 GOTO 1205 0020 DIM U1$(8),U2$(8)4,I2$2,I2$(123)2,V4$1 0030 DEFFNJ(A)=POS(V0$()=" ")-1 1000 DEFFN'101(V1$(),E) : IF V4=0OR C3=ETHEN RETURN : I2$()=ALL(00) : C=C3 1010 C=C+1 : IF C>7THEN 1020 : IF STR(V1$(),2*C-1,2)>HEX(0000)THEN I2$(C)=BIN(ABS(V4),2) : GOTO 1010 1020 I2$(C)=BIN(ABS(V4),2) : IF C<ETHEN STR(I2$(),C*2+1,(E-C)*2)=STR(I2$(),C*2-1,(E-C)*2) : IF V4>0THEN V1$()=ADDCI2$() : ELSE V1$()=SUBCI2$() : RETURN 1030 V4$="P" : GOSUB '221(A1,1,1,1,1) : IF R1$<>HEX(00)THEN 2540 1050 DEFFN'100(C3,V1$(),G) : C4$=" " : IF C3<1THEN C3=8 : IF C3>123OR STR(V1$(),C3*2-1,2)=HEX(FFFF)THEN C3=INT((POS(-STR(V1$(),15,2 32)<FF)-1)/2)+8 : IF STR(V1$(),2*C3-1,2)=HEX(0000)THEN 1080 : C5=VAL(STR(V1$(),2*C3-1),2) : IF C3=123OR STR(V1$(),2*C3+1,2)=HEX(FFFF)THEN 1070 : GOSUB 1090 : C6=VAL(STR(V1$(),2*C-1,2),2)-VAL(STR(V1$(),2*C3-1,2),2) : RETURN 1070 C6=G-C5+1 : C4$="E" : RETURN 1080 C5$="S" : RETURN 1090 C=C3 1100 C=C+1 : IF STR(V1$(),2*C-1,2)=HEX(0000)THEN 1100 : RETURN 1205 IF J0(6)=0THEN 1365 : IF POS(-V0$()=86)>0THEN V0$()=STR(V0$(),POS(-V0$()=86)) : V0$(1)=HEX(8F) : STR(V0$(),POS(V0$()=83)+1)=STR(J3$(),J6(1)) : D7=V0 : V0=J6(4) : C4=J6(2) : GOSUB '100(C4,D9$(),J6(4)) : GOSUB '222(J6(3),1,C8,INT((LEN(V0$())-1)/246)+1,2) : IF POS(HEX(0028)=R1$)=0THEN 2530 : J6(2)=J6(2)+1 : F=F+1 : J6(4)=V0 : V0=D7 1305 V4,C6=INT((LEN(V0$())-1)/246+1) : MAT COPY -STR(D9$(),2*C3-1,244-2*C3)TO -STR(D9$(),2*C3+1,244-2*C3) : D9$(C3+1)=BIN(C8,2) : GOSUB '101(D9$(),F-1) : D9$()=V1$() : J1=POS(V0$()=83)+1 : J0(6)=0 : GOTO 1375 1365 J1=J0(4)+1 1375 J6(2)=J6(2)-1 : F=F-1 : D1$=HEX(50) : J3$()=V0$() : IF J7(1)=9THEN 1490 : V0$()=" " : C4=J0(5) : GOSUB '100(C4,J1$(),V0) : GOSUB '220(A1,1,C5,C6,2) : IF POS(HEX(0028)=R1$)=0THEN 2510 : C=LEN(STR(J2$())) : PACK(############)STR(D8$(),191,6)FROMF : V1$()="609DpageREC.page" : LOAD T<2>V1$() 1490 PACK(############)STR(D8$(),191,6)FROMF : D1$=HEX(50) : J6(1)=J1 : LOAD T"609Escm4" 2510 B2$="Error reading page" : CONVERT C3TO STR(B2$,LEN(B2$)+2),(###) : GOTO 2550 2520 B2$="Error replacing page" : GOTO 2550 2530 B2$="Error saving new page" : GOTO 2550 2535 B2$="Error deleting page" : GOTO 2550 2540 B2$="Error rewriting page table" 2550 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 2560 PRINT AT(23,0,80);HEX(0607);B5$(2);B2$;B5$(1); : KEYIN S2$,,2570 : GOTO 2560 2570 IF POS(HEX(F050)=S2$)>0THEN GOSUB '31 : GOTO 2560 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$