Listing of file='609Eoldp' on disk='vmedia/701-2736G.wvd.zip'
# Sector 1115, program filename = '609Eoldp' 0010 REM 609Eoldp 0020 COM V0$(J8)1 : IF J1$(9)=HEX(FFFF)THEN I0=V0-VAL(J1$(8),2)+1 : ELSE I0=VAL(J1$(9),2)-VAL(J1$(8),2) : GOSUB '220(A1,1,VAL(J1$(8),2),I0,2) : IF POS(HEX(0028)=R1$)=0THEN 1050 : A5$()="609EstrtJCATSMAL" : LOAD T<2>A5$() 1000 % This is line 1000 - do not renumber lines 1000-1100 1050 B2$="Error in 1st page read" : 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) : LOAD T<2>A5$()