image of READY prompt

Wang2200.org

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$