Listing of file='609Eoldr' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1162, 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$