Listing of file='609Ecm1' on disk='vmedia/701-2736G.wvd.zip'
# Sector 624, program filename = '609Ecm1'
0010 REM ********************* 609Ecm1 *************************************
0013 COM J3$(1)1
: DIM I(2)
0018 DEFFNJ(I)=POS(V0$()=" ")-1
: IF C3>J0(2)OR V0$(J0(4))=HEX(8F)THEN 310
: IF J7(1)>4THEN 190
0160 COM CLEAR J3$()
: LOAD T"609Ecm2"
0190 IF J0(4)-J0(1)+1<=1024THEN 160
: C5$="B"
: J1,J0(4)=J0(1)+1024-1
: J7(3)=5
: V1$()="609Ehilt609Eline609Eplin609Eprnt"
: IF D7$="H"THEN V1$()="609EHILT609Eline609EPLIN609EPRIN609EPOS 609EFRMT"
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0250 GOSUB 2085
0252 COM CLEAR J2$()
: LOAD DA T(D7$(1))
0310 IF J9=J0(4)OR J9-J0(4)+J0(1)+1<J8-1OR J2(1)=3THEN 380
: C5$="F"
: GOTO 1404
0380 ON J7(1)-2GOTO 400,470,,,550,550
0400 I=A0(3)+J0(5)-J0(2)
: IF V0$(J0(4))=HEX(8F)THEN I=I+1
: IF I<123THEN 480
0440 C5$="T"
: GOTO 1404
0470 IF A0(3)>122THEN 440
0480 J7(2)=2
0490 GOSUB 2140
: IF J7(1)=3THEN J1=J0(4)+1
: ELSE J1=J0(1)
: V1$()="609MpageREC.page"
: LOAD T<2>V1$()
0550 J7(2)=3
: IF A0(3)>122THEN 440
: GOTO 490
1404 J1=J0(1)
: IF C3<>J0(2)THEN 1428
: GOSUB '35(J1)
: IF C1=2AND J1<J2(C1)THEN C1=1
: MAT J0=ZER
: J7(1)=0
: J7(3)=3
: GOTO 252
1428 C4=J0(2)
: MAT J0=ZER
: J7(1),J7(2),J7(3)=0
: V1$()="609FpageREC.page"
: LOAD T<2>V1$()
2085 C3$="Loading Editor"
: GOTO 2445
2140 C3$="Rearranging"
: GOTO 2445
2410 IF I6$=" "AND C3$=" "THEN 2425
: IF C3$<>" "THEN PRINT HEX(07);
: IF I6$<>" "OR C3$<>" "THEN PRINT HEX(06);AT(23,48,32);B5$(2);C3$;HEX(0204
00000E);
: I6$=C3$
2425 PRINT HEX(06);AT(0,42,3);INT(J4(C1));AT(0,57,3);J0;HEX(020400000E);AT(C1,
C7);HEX(02050F);
: C3$=" "
: RETURN
2435 PRINT HEX(0306);AT(7,30);B5$(3);C3$;" ";C6$;B5$(1)
: RETURN
2440 PRINT HEX(06);AT(23,31,17);B5$(2);C3$;B5$(1);
: RETURN
2445 PRINT HEX(06);AT(0,63,17);B5$(2);C3$;B5$(1);
: RETURN
2450 PRINT HEX(06);AT(23,0,39);B5$(2);C3$;B5$(1);
: RETURN
2455 %Document ##### Now on Page ###- Line ### Position ###
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$