Listing of file='609Ecm3' on disk='vmedia/731-0067G.wvd.zip'
# Sector 654, program filename = '609Ecm3'
0010 REM 609Ecm3 *************************************************************
*
0018 DEFFNJ(I)=POS(V0$()=" ")-1
: IF D1$=HEX(50)OR D1$=HEX(F0)THEN 1050
: IF J3$(1)=" "THEN 360
: J9=FNJ(1)
: IF J9+LEN(J3$())+LEN(J2$())>J8-2AND J0(2)>0THEN 1010
0170 IF J1<=LEN(V0$())THEN MAT COPY -STR(V0$(),J1,LEN(V0$())-J1+1)TO -STR(V0$(
),J1+LEN(J3$()),LEN(V0$())-J1+1)
: STR(V0$(),J1,LEN(J3$()))=J3$()
: IF J2$()=" "THEN 240
: MAT COPY -STR(V0$(),J1,LEN(V0$())-J1+1)TO -STR(V0$(),J1+LEN(J2$()),LEN(V0
$())-J1+1)
: STR(V0$(),J1,LEN(J2$()))=J2$()
0240 IF D1$<>HEX(F0)THEN J1=J1+LEN(J3$())
: IF J2$()<>" "AND D1$<>HEX(F0)THEN J1=J1+LEN(J2$())
0260 J7(3)=2
: IF J0(2)=0THEN J7(3)=0
: J7(1)=0
: MAT J0=ZER
: J9=FNJ(1)
: COM CLEAR J2$()
: LOAD DA T(D7$(1))
0360 J7(2)=0
: J7(3)=1
0420 C=LEN(STR(J2$()))
: V1$()="609IpageRECMGR"
: LOAD T<2>V1$()
1010 C5$="F"
: D1$=HEX(50)
1050 IF J7(1)=3THEN 1170
: IF J3$(1)=" "THEN 1253
: IF C3<>J0(2)AND J0(2)>0THEN 1210
: J1=J0(1)
: J2$()=" "
: GOTO 170
1170 IF J3$(1)=" "THEN 1340
: IF C3=J0(2)OR J0(2)=0THEN 260
: C4=J0(2)
: J0(2)=0
: J1=J0(1)
: GOTO 1230
1210 J0(2),J0(5)=0
1220 C4=J0(2)
1230 J7(2)=6
: V1$()="609FpageRECMGR"
: LOAD T<2>V1$()
1253 J1=J0(1)
: IF C3=J0(2)THEN 360
: GOTO 1220
1340 J7(2)=0
: J7(3)=1
: J1=J0(1)
: GOTO 420
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$