Listing of file='609Ecm2' on disk='vmedia/701-2736G.wvd.zip'
# Sector 633, 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$