image of READY prompt

Wang2200.org

Listing of file='609Ecm2' on disk='vmedia/731-0067G.wvd.zip'

# Sector 649, program filename = '609Ecm2'
0010 REM 609Ecm2 *************************************************************
     ***
0100 COM J3$(J8)1
0120 DEFFNJ(I)=POS(V0$()=" ")-1
   : J3$()=STR(V0$(),J0(1),J0(4)-J0(1)+1)
   : IF J7(1)<>3THEN 180
   : J7(3)=2
   : J1=J0(4)+1
   : V1$()="609Elolt609Eline609Espln609Eprnt"
   : IF D7$="H"THEN V1$()="609ELOLT609Eline609ESPLN609EPRNT609EPOS 609EFRMT"
   : LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0180 STR(V0$(),J0(1))=STR(V0$(),J0(4)+1)
   : J1=J0(1)
   : J7(3)=1
   : J7(2)=2
   : IF J7(1)>4THEN J7(2)=7
   : J9=FNJ(1)
   : V1$()="609FpageREC.page"
   : LOAD T<2>V1$()BEG 100
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$