image of READY prompt

Wang2200.org

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

# Sector 1120, program filename = '609Eoldr'
0010 REM 609Eoldr
0020 DIM V0$(1)1
   : IF POS(STR(T5$(),4*75+1)<>20)>0THEN 55
   : IF J1$(7)<>HEX(0000)THEN GOSUB '223(A1,VAL(J1$(7),2),1)
   : ELSE GOTO 60
   : IF R1$<>HEX(00)THEN 1026
   : V4=-1
   : GOSUB 100
   : J1$(7)=HEX(0000)
   : GOSUB 130
   : GOTO 60
0055 V1$()=STR(T5$(5))&T5$(6)
   : V4$="E"
   : IF J1$(7)<>HEX(0000)THEN 59
   : GOSUB '222(A1,1,VAL(J1$(8),2),1,1)
   : IF R1$<>HEX(00)THEN 1028
   : V4=1
   : J1$(7)=J1$(8)
   : GOSUB 100
   : GOSUB 130
   : GOTO 60
0059 GOSUB '221(A1,1,VAL(J1$(7),2),1,1)
   : IF R1$<>HEX(00)THEN 1027
0060 A7$(5)=R2$
   : $PACK(F=HEX(A019A0066006A002A001))V1$()FROMA6$(),A7$(),A0(),A8$(),A9$()
   : V4$="A"
   : GOSUB '221(A1,1,2,1,1)
   : IF R1$<>HEX(00)THEN 1040
   : COM CLEAR V4$
   : A5$()="609EoldpRECMGR"
   : LOAD T<2>A5$()
0100 IF V4=0OR C3=A0(3)THEN RETURN
   : I2$()=ALL(00)
   : C=7
0110 C=C+1
   : IF C>7THEN 120
   : IF J1$(C)>HEX(0000)THEN I2$(C)=BIN(ABS(V4),2)
   : GOTO 110
0120 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
0130 V1$()=J1$()
   : V4$="P"
   : GOSUB '221(A1,1,1,1,1)
   : IF R1$<>HEX(00)THEN 1015
   : RETURN
1000 % This is line 1000 - do not renumber lines 1000-1100
1015 B2$="Error in page table replace"
   : GOTO 1060
1026 B2$="Error in key word delete"
   : GOTO 1060
1027 B2$="Error in key word replace"
   : GOTO 1060
1028 B2$="Error in key word insert"
   : GOTO 1060
1040 B2$="Error rewriting admin block"
   : GOTO 1060
1060 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
   : ELSE HEXUNPACKR1$TO I2$
   : B2$=B2$&" = "&I2$
   : IF Y5$=" "THEN B2$=B2$&" - please Cancel"
   : IF Y5$<>" "THEN GOSUB '31
1070 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
   : KEYIN S2$,,1080
   : GOTO 1070
1080 IF POS(HEX(F050)=S2$)>0THEN GOSUB '31
   : GOTO 1070
9031 DEFFN'31
   : A5=0
9032 DEFFN'32
   : A5$()="609CloseJCATSMAL"
   : A5$=R3$()
   : R3$()=STR(R3$(),10)
   : IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
   : COM CLEAR C
   : LOAD TA5$