image of READY prompt

Wang2200.org

Listing of file='609Edel' on disk='vmedia/731-0067F-disk1.wvd.zip'

# Sector 657, 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$