image of READY prompt

Wang2200.org

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

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