Listing of file='609Escm5' on disk='vmedia/731-0067G.wvd.zip'
# Sector 927, 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$