image of READY prompt

Wang2200.org

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

# Sector 1130, program filename = '609Erep5'
0010 REM 609Erep5 ------------------------------------------------------------
     -
0040 J7(2)=0
   : J7(3)=0
   : J7(1)=3
   : D1$,D2$,D3$=HEX(82)
   : J1=J0(1)
   : V1$()="609IpageRECMGR"
   : C=LEN(STR(J2$()))
   : LOAD T<2>V1$()
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$