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