Listing of file='609Edel' on disk='vmedia/731-0067G.wvd.zip'
# Sector 631, program filename = '609Edel'
0010 REM ********************* 609Edel ************************************
0011 DIM I(2)
0018 DEFFNJ(I)=POS(V0$()=" ")-1
: IF C3>7THEN IF C3>J0(2)OR V0$(J0(4))=HEX(8F)THEN 358
: IF C3<8AND V0$(J0(4))=HEX(8F)THEN J0(4)=J0(4)-1
: STR(V0$(),J0(1))=STR(V0$(),J0(4)+1)
: J9=FNJ(1)
: J1=J0(1)
: MAT J7=ZER
: IF J1>=J2(2)THEN J7(3)=3
: GOSUB '35(J1)
: C1=MAX(C1-1,1)
: FOR C=1TO 24
: IF J2(C)=0OR J2(C)+J1(C)-1>=J0(1)THEN C1=MIN(C1,C)
: NEXT C
: MAT J0=ZER
0342 GOSUB 2085
0346 LOAD DA T(D7$(1))
0358 IF J9=J0(4)OR J9-J0(4)+J0(1)+1<J8-1THEN 368
0362 C5$="F"
: J7(2)=0
: GOTO 1404
0368 IF J0(1)+246*(MIN(VAL(J1$(C3+1),2),V0)-C5-C6+1)>J8-3AND J9=J0(4)THEN 362
: V1$()="609DpageREC.page"
: LOAD T<2>V1$()
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 346
1428 C4=J0(2)
: MAT J0=ZER
: J7(1),J7(3)=0
: V1$()="609FpageRECMGR"
: LOAD T<2>V1$()
2085 C3$="Loading Editor"
: 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$