image of READY prompt

Wang2200.org

Listing of file='609Eoldp' on disk='vmedia/731-0067F-disk1.wvd.zip'

# Sector 1157, 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$()