image of READY prompt

Wang2200.org

Listing of file='609Edtr' on disk='vmedia/731-0067G.wvd.zip'

# Sector 1428, program filename = '609Edtr'
0010 REM 609Edtr 238-08/07/86
0014 DIM I0$(158)1,I(2),C$1
   : J7(2)=0
0018 DEFFNJ(I)=POS(V0$()=" ")-1
   : IF J7(1)>2THEN J7(1)=0
   : PRINT AT(0,63,17)
   : IF J7(1)=1THEN GOSUB 2070
   : IF J7(1)=1THEN C$="I"
   : J=J7(3)
   : J7(3)=0
   : L=J8-2-J7
   : ON JGOTO 58,62,395,45,88,102,152
   : ON J7(1)GOTO 58
   : D1,J7(1)=0
   : IF D9=0THEN D9=80
   : GOSUB '63
0045 GOSUB '40
   : IF J7(1)<>0THEN 51
   : MAT J0=ZER
   : J7=0
   : L=J8-2-J7
0051 IF C1$="Glossary"THEN C7$=HEX(80)
0058 D2=1
   : PRINT HEX(03)
   : I(1)=0
0062 GOSUB '94(D2)
0072 C1=1
   : J9=FNJ(1)
   : GOSUB '91(C1,J2(C1),I(1),0)
   : D0=J5(1)
0088 GOSUB '92(J2,J1,1)
   : J3=J4
   : GOSUB 247
   : IF D6=9E99THEN 835
   : GOTO 236
0100 REM %Print Autoscore mode message
0102 IF C7$<>HEX(00)THEN GOSUB 2005
   : IF D1$(1)<>HEX(86)THEN 122
   : J1=J2(C1+1)
   : GOSUB '93
   : GOTO 72
0120 IF J0>D9OR D1$(J0)<>" "THEN 130
0122 GOSUB '22(MAX(J4,1))
   : IF F=0THEN J0=J5(C1)+1
   : ELSE J0=F+1
0130 C7=J0-1
0134 J3=J4
   : D7=0
   : D2$=D1$(J0)
   : IF J2(C1)+J3>J9AND POS(-D1$()<>" ")<J0THEN D2$=HEX(00)
   : GOTO 150
0147 PRINT HEX(06);AT(C1,C7);HEX(02050F);
   : C3$=" "
   : GOTO 152
0148 C7=J0-1
   : J3=J4
0150 PRINT HEX(06);AT(23,48,32);
   : IF C5$<>" "THEN GOSUB 247
   : $IF ON /001,147
   : GOSUB 2425
0152 KEYIN D1$,,402
   : $TRAN(D1$,HEX(018401E501A12081018202FF0308))R
   : ON D1$GOTO 304,250,1312
0164 D1$=D1$XOR C7$
   : $TRAN(D1$,HEX(8020830D838D))R
0172 IF D2$=" "OR D2$=HEX(8F)THEN 362
0182 IF D2$<>HEX(00)THEN 206
   : IF J9>=LTHEN 372
   : J9=J9+1
   : J1(C1)=J1(C1)+1
0206 D1$(J0),D2$(J3),V0$(J2(C1)+J3-1)=D1$
   : D4=D4+1
   : J3,J4=J3+1
   : J0=J0+1
   : IF C$="I"AND J0(3)<J2(C1)+J3-1THEN PRINT HEX(020402000E);D1$;HEX(0F);
   : ELSE PRINT D1$
   : IF D2$<>HEX(00)THEN 241
   : IF J3>2AND POS(D4$=D2$(J3-2))>0THEN IF POS(-A5$()=82)<J0THEN 228
   : IF POS(-STR(D2$(),,MIN(J3,D9))=81)>0OR POS(-STR(D2$(),,MIN(J3,D9))=85)>0T
     HEN 228
0224 IF POS(D4$=D1$)=0AND J0<=D9THEN 148
0228 J1=J2(C1)+J3-1
0230 C1=MAX(C1-1,1)
   : GOSUB '91(C1,J2(C1),1,C1+1)
0234 GOSUB '92(J2,J1,1)
0236 IF J7(1)=1THEN GOSUB 290
   : GOTO 122
0241 IF POS(-STR(D2$(),,MIN(J3,D9))=81)>0OR POS(-STR(D2$(),,MIN(J3,D9))=85)>0T
     HEN 228
0243 IF J3<=J1(C1)THEN IF POS(D4$=D1$)+POS(D5$=D1$)+POS(D4$=D2$)+POS(D5$=D2$)=
     0THEN 120
   : IF POS(D5$=D1$)>0AND J4>1AND POS(D4$=D2$)=0THEN IF J3(C1-1)<J4AND J3(C1-1
     )<>J4-1THEN IF J3<=J1(C1)THEN IF LEN(D1$())<D9OR POS(-STR(I0$(),,D9-1)=80
     )>J3THEN 122
   : GOTO 228
0247 IF C5$="F"THEN GOSUB 2345
   : IF C5$="T"THEN GOSUB 2355
   : C5$=" "
   : RETURN
0250 KEYIN D1$
   : IF D2$=" "THEN 362
   : ON POS(HEX(A008)=D1$)GOTO 268,1311
   : PRINT D1$;HEX(08);
   : D1$(J0),D2$(J3),V0$(J2(C1)+J3-1)=D1$
   : J9=J9+1
   : GOTO 243
0268 IF POS(HEX(7FFF8182838485868F8C8B)=D2$)=0THEN 278
   : D1$=D2$
   : GOTO 172
0278 IF C7$=HEX(00)THEN D1$=D2$OR HEX(80)
   : ELSE D1$=D2$AND HEX(7F)
   : $TRAN(D1$,HEX(8020A0808000))R
   : GOTO 182
0290 PRINT HEX(06);AT(23,0);B5$(2);
   : PRINTUSING "#############################",STR(V0$(),POS(-V0$()=" ")+1);
   : GOSUB 2070
   : PRINT HEX(05);
   : RETURN
0304 IF FNJ(1)<>LEN(V0$())THEN 312
   : GOSUB 2320
   : GOTO 152
0312 C=POS(-V0$()=" ")
   : STR(V0$(),FNJ(1)+1)=STR(V0$(),C+1)
   : J1=J2(C1)+J3-1
   : GOSUB '35(J0(3))
   : MAT J0=ZER
   : J7(1),J7=0
   : L=J8-2-J7
   : C$=" "
   : PRINT AT(0,63,17);AT(23,0,30);
   : J9=FNJ(1)
   : C1=MAX(C1-1,1)
   : GOSUB '91(C1,J2(C1),0,C1+1)
   : GOTO 234
0362 GOSUB 2330
   : GOTO 152
0372 GOSUB 2345
   : IF J7(1)=1THEN 312
   : GOTO 134
0382 IF POS(-STR(D2$(),,MIN(J3,D9))=81)>0THEN 228
   : M=POS(-STR(D2$(),,MIN(J3,D9))=85)
   : IF M=D9THEN 228
   : IF POS(STR(D2$(),M,MIN(J3,D9)-M+1)=82)>0THEN 243
   : IF POS(STR(D2$(),M,MIN(J3,D9)-M+1)=84)>0THEN 243
   : I0$()=D2$()
   : $TRAN(I0$(),C9$())R
   : IF POS(STR(I0$(),M,MIN(J3,D9)-M+1)=80)>0THEN 243
   : GOTO 228
0395 GOSUB '91(C1,J2(C1),0,0)
   : GOTO 234
0402 IF D1$<HEX(80)OR D1$=HEX(F0)THEN 412
   : D1$=AND HEX(7F)
   : GOTO 164
0412 D3$=D1$
   : IF D1$<>HEX(FF)AND POS(J8$()=D1$)>0THEN D1$=BIN(MOD(POS(J8$()=D1$)-1,LEN(
     J8$(1))))
   : ELSE D1$=HEX(FF)
   : IF D1$=HEX(FF)THEN 164
   : IF D1$<HEX(16)THEN 440
   : D7=0
   : ON VAL(D1$)-21GOTO 1214,1104,1263,1312,1504,1004,502,514,,541,1434,426,57
     8
   : GOTO 430
0426 IF D2$=" "OR D2$=HEX(8F)THEN 430
   : D7=0
   : ON VAL(D1$)+1GOTO 532,,539,541,,543,547,549,,,,,592,584,,,545,,,,,588,,,,
     ,,,,,,,182,592
0430 GOSUB 2320
   : GOTO 152
0440 IF J7(1)=1AND POS(HEX(08090A0B11121314)=D1$)>0THEN 598
   : IF POS(HEX(08090A0B121314)=D1$)=0THEN 453
   : GOSUB '41
   : J1=J2(C1)+J3-1
   : IF D2$=" "THEN J1=J1+1
   : IF J1>J9AND POS(HEX(1314)=D1$)=0THEN 362
0453 IF D2$=" "AND J0>LEN(D1$())AND V0$(J2(C1)+J1(C1))=HEX(86)AND POS(HEX(090A
     0B12)=D1$)>0THEN 362
   : ON VAL(D1$)+1GOTO 426,534,426,426,815,426,426,426,551,557,563,569,624,426
     ,,805,426,554,560,566,572,426
   : GOTO 430
0502 GOSUB '40
   : J1=MIN(J2(C1)+J3-1,J9)
   : IF C1>3THEN J1=J2(3)+J1(3)-1
   : IF J2(3)>0AND V0$(J2(3))=HEX(86)AND J1>J2(3)THEN J1=J2(2)+J1(2)-1
   : IF C$="I"THEN 598
   : IF D2=1AND C3>8AND J7(1)=0THEN 510
   : IF D2=1THEN 506
   : GOSUB '94(D2-1)
   : GOTO 528
0506 IF C3>8AND J7(1)<>1THEN 510
   : J1=0
   : IF C1=2AND J3=1THEN 508
   : J1=J2(2)
   : GOTO 234
0508 GOSUB 2340
   : GOTO 152
0510 C4=C3-1
   : J1=9E99
   : GOTO 614
0514 GOSUB '40
   : J1=J2(C1)+J3-1
   : IF J1<J2(20)+J1(20)AND J1(21)>0THEN J1=J2(20)+J1(20)
   : IF C$="I"THEN 598
   : IF J2(C2)+J1(C2)-1>J9THEN 598
   : IF J1(21)>0AND V0$(J2(19))<>HEX(8F)THEN 526
   : IF C3<123AND C3>7AND C4$<>"E"AND J7(1)<>1THEN 522
   : IF C3<8AND J1=J9THEN 524
   : IF C3>7AND J1=J9+1THEN 524
   : J1=J9+1
   : GOTO 234
0522 C4=C3+1
   : J1=0
   : GOTO 614
0524 GOSUB 2335
   : J1=0
   : D2$=D1$(J0)
   : IF D2$=" "THEN D2$=HEX(00)
   : GOTO 152
0526 GOSUB '93
0528 I(1)=0
   : GOTO 72
0532 D1$=HEX(84)
   : GOTO 182
0534 IF C3>7AND A0(3)<123THEN 535
   : GOSUB 2355
   : GOTO 152
0535 C=J2(C1)+J3-1
   : IF D2$=" "THEN C=C+1
   : IF C<=J9THEN MAT COPY -STR(V0$(),C,J9-C+1)TO -STR(V0$(),C+1,J9-C+1)
   : V0$(C)=HEX(8F)
   : GOSUB 2065
   : C4=C3+1
   : C=1
   : J7(3)=1
   : V1$()="609HpageRECMGR"
   : LOAD T<2>V1$()
0539 D1$=HEX(81)
   : GOTO 182
0541 D1$=HEX(85)
   : GOTO 182
0543 D1$=HEX(7F)
   : GOTO 182
0545 D1$=HEX(FF)
   : GOTO 182
0547 D1$=HEX(8C)
   : GOTO 182
0549 D1$=HEX(8B)
   : GOTO 182
0551 J7(1)=5
   : J7(2)=10
   : J7(3)=3
   : J0(1),J0(3),J0(4)=J1
   : GOSUB 2115
   : GOTO 620
0554 J7(1)=6
   : J7(2)=10
   : J7(3)=0
   : J0(1),J0(3),J1,J0(4)=0
   : C4=8
   : GOSUB 2095
   : GOTO 620
0557 IF V0$(J1)=HEX(8F)THEN 362
   : J7(1)=7
   : J7(2)=1
   : GOSUB 2110
   : GOTO 620
0560 IF V0$(J1)=HEX(8F)THEN 362
   : J7(1)=8
   : J7(2)=1
   : GOSUB 2090
   : GOTO 620
0563 J7(1)=3
   : J7(2)=1
   : GOSUB 2075
   : GOTO 570
0566 J7(1)=9
   : J7(2)=11
   : GOSUB 2120
   : GOTO 620
0569 J7(1)=4
   : J7(2)=1
   : GOSUB 2105
0570 IF J4=0AND J1(C1)>0THEN J3,J4=1
   : IF J4>0THEN 620
   : C1=C1-1
   : J3,J4=J1(C1)
   : GOSUB '96(J2(C1),C1)
   : J0=LEN(D1$())
   : C7=J0-1
   : GOTO 620
0572 J7(1)=10
   : J7(2)=11
   : GOSUB 2125
   : GOTO 620
0578 GOSUB '38
   : J1=J2(C1)+J3-1
   : IF J7(1)<>1THEN J7=1
   : IF D2$=" "THEN J1=J1+1
   : GOSUB 2100
   : V1$()="609GpageRECMGR"
   : LOAD T<2>V1$()
0584 D1$=STR(A1$,3)
   : GOTO 164
0588 D1$=STR(A1$,2)
   : GOTO 164
0592 D1$=HEX(82)
   : GOTO 182
0598 GOSUB 2290
   : GOTO 152
0612 IF C1$="Glossary"THEN 620
   : C6$=" "
   : GOSUB 2035
   : GOTO 620
0614 CONVERT C4-7TO C6$,(###)
   : GOSUB 2055
0620 V1$()="609FpageREC.page"
   : LOAD T<2>V1$()BEG 100
0621 V1$()="609Ehilt609Eline609Eplin609Eprnt"
   : LOAD T<4>V1$()
0624 GOSUB '38
0626 PRINT HEX(05);
   : GOSUB 2170
   : PRINT HEX(06);
0628 KEYIN D1$,,648
   : PRINT HEX(06)
   : IF D1$<>" "THEN 632
   : D1$=A1$XOR C7$
   : PRINT AT(0,63,17);B5$(1);AT(C1,C7);
   : GOTO 182
0632 IF D1$<>HEX(FF)THEN 638
   : GOSUB '40
   : C7$=C7$XOR HEX(80)
   : PRINT HEX(05);AT(0,63,17);AT(23,31,17);B5$(1);
   : I6$=" "
   : GOTO 228
0638 IF D1$=HEX(2D)THEN 642
   : IF D1$="E"OR D1$="e"THEN 676
   : GOSUB 2360
   : GOTO 626
0642 IF J7(1)=1THEN 656
   : J7(1)=12
   : D7=0
   : V1$()="609Ehyp 609Eline609Eplin609Eprnt609Eloct"
   : LOAD T<5>V1$()
0648 ON POS(HEX(50F001110616)=D1$)/2+.5GOTO 652,660,668
   : GOSUB 2360
   : GOTO 626
0652 PRINT AT(0,63,17);B5$(1)
   : GOTO 228
0656 GOSUB 2290
   : GOTO 626
0660 IF J7(1)=1THEN 656
   : IF C3>7THEN 666
   : GOSUB 2215
   : GOTO 626
0666 J7(1)=11
   : GOTO 805
0668 IF D1$(J0)<>" "THEN 670
   : GOSUB 2330
   : GOTO 628
0670 J9$=BIN(J2(C1)+J3-1,2)&BIN(C3)
   : GOTO 652
0676 GOSUB 2205
   : KEYIN D1$,,678
   : IF D1$=HEX(82)OR D1$=HEX(A1)THEN GOSUB '32
   : GOTO 676
0678 IF D1$=HEX(50)OR D1$=HEX(F0)THEN 652
   : GOTO 676
0702 DEFFN'63
   : IF V0$(1)=HEX(8F)THEN 711
   : J=MIN(J8-FNJ(1)-1,81)
   : MAT COPY -STR(V0$(),,LEN(V0$()))TO -STR(V0$(),J,LEN(V0$()))
   : STR(V0$(),,J-2)=HEX(8F31)&ALL(80)
   : V0$(J-1)=HEX(83)
   : GOTO 714
0709 STR(V0$(),FNJ(1)+1)=STR(V0$(),FNJ(1)+POS(STR(V0$(),FNJ(1)+1)<>20))
   : GOTO 714
0710 V0$(POS(STR(V0$(),3)<>80)+1)=HEX(83)
0711 A=POS(V0$()=83)
   : IF A=0THEN 710
   : IF A>80THEN STR(V0$(),79)=STR(V0$(),A-1)
0714 IF FNJ(1)=LEN(V0$())THEN 717
   : IF FNJ(1)>0THEN 709
   : STR(V0$(),J8-1)=" "
0717 J=POS(STR(V0$(),2)=8F)
   : IF J>0THEN STR(V0$(),J+1)=" "
   : IF C4$<>"E"THEN V0$(LEN(V0$())+1)=HEX(8F)
   : RETURN
0746 DEFFN'22(F)
   : MAT REDIM D6$(F)2
   : D6$()=ALL(00)
   : MAT SEARCHD1$(),<>" "TO D6$()
   : F=VAL(D6$(F),2)-1
   : IF F>=0THEN RETURN
   : F=POS(-D1$()<>20)
   : IF F=1AND C4$="E"AND D1$(1)=HEX(81)AND J2(C1)+1>=J9THEN F=INT(D9/2)
   : RETURN
0764 DEFFN'122(C)
   : F=C
   : MAT REDIM D6$(D9)2
   : D6$()=ALL(00)
   : IF F=0THEN 776
   : MAT SEARCHSTR(D1$(),,F),<>" "TO D6$()
   : F=VAL(D6$(F),2)
   : IF F<>0THEN 776
   : F=INT((POS(-D6$()>00)+1)/2)
0776 IF J9=J2(C1)+F-1AND D1$(J0)=" "THEN F=F+1
   : J3=F
   : RETURN
0790 DEFFN'40
   : KEYIN D3$,790,790
   : RETURN
0792 DEFFN'38
   : D1$,C3$=" "
   : GOSUB 2410
   : RETURN
0796 DEFFN'41
   : IF D2$<>" "THEN RETURN
   : IF J0>LEN(D1$())THEN 797
   : J3=J3+1
   : J0=J0+POS(STR(D1$(),J0+1)<>" ")
   : C7=J0-1
   : RETURN
0797 D3$=D1$
   : GOSUB '92(0,J2(C1+1),1)
   : D1$=D3$
   : D2$=D2$(1)
   : RETURN
0805 J7(2)=0
   : LOAD T"609Egotp"
0815 IF C1<22OR J3=1OR D3$=HEX(14)THEN 853
   : D6=9E99
   : J1=J2(C1)+J3-1
   : GOTO 526
0835 IF D2$=HEX(00)THEN GOSUB '35(J9+1)
   : J3=J4
   : D3$=HEX(04)
   : GOSUB '96(J2(C1),C1)
   : GOSUB '22(J3)
   : J0=F
0853 IF D3$=HEX(14)AND D1<J2(1)THEN 362
   : IF D3$=HEX(14)AND J7(1)=1THEN 430
   : IF J4>0THEN 860
   : J3,J4=1
   : J0=POS(D1$()<>20)
   : C7=J0-1
   : J1=J1+1
0860 V1$()="609Eform609Eline609Eplin"
   : LOAD T<3>V1$()
0902 DEFFN'35(C8)
   : C1=1
0910 IF C8<J2(C1)THEN 954
   : IF J1(C1+1)=0THEN 928
   : IF J2(C1+1)>C8THEN 964
   : C1=C1+1
   : GOTO 910
0928 IF C8<J2(C1)+J1(C1)THEN 964
   : IF C1<C2THEN 954
   : IF V0$(J2(C1))=HEX(8F)THEN 948
   : J4=J1(C1)+1
   : GOTO 968
0948 J4=J1(C1)
   : GOTO 973
0954 C1=C1+1
   : J4=1
   : GOTO 973
0964 J4=C8-J2(C1)+1
0968 IF C8<FNJ(1)OR J1(C1)=0THEN 973
   : IF POS(-STR(V0$(),,C8)=86)=0THEN IF J4>D9THEN 954
   : IF POS(-STR(V0$(),,C8)=86)>0THEN IF POS(STR(V0$(),POS(-STR(V0$(),,C8)=86)
     )=83)<J4THEN 954
0973 IF C1=1THEN 954
   : RETURN
1004 J9=FNJ(1)
   : IF J2(C1)+J3-1>J9AND D2$<>HEX(8F)THEN 362
   : IF D3$=HEX(59)AND J7(1)=1THEN 1048
   : IF D3$<>HEX(59)THEN 1056
   : IF D2$<>HEX(8F)THEN 1032
   : IF C3<8THEN 430
   : GOSUB 2013
   : D7=1
   : J0(1),J0(3),J0(4)=J2(C1)
   : J0(2),J0(5)=C4
   : V1$()="609FpageREC.page"
   : LOAD T<2>V1$()
1032 IF D1$(J0)=" "THEN 362
   : C=J2(C1)+J3-1
   : STR(V0$(),C)=STR(V0$(),C+1)
1038 J1=C
   : J9=FNJ(1)
   : IF C1=22THEN 1041
   : FOR C=C1+1TO 22
   : J2(C)=MAX(J2(C)-1,1)
   : NEXT C
1041 J1(C1)=J1(C1)-1
   : GOTO 1543
1048 IF D1$(J0)=" "THEN 362
   : C=J2(C1)+J3-1
   : I=POS(V0$()=20)
   : IF C>=IOR I=0THEN 362
   : I=I-C
   : STR(V0$(),C,I)=STR(V0$(),C+1,I)
   : IF J2(C1)+J3-1<J0(3)THEN J0(3)=J0(3)-1
   : GOTO 1038
1056 IF J7(1)=1THEN 598
   : IF D1$(J0)=" "AND V0$(J2(C1)+J3)=HEX(86)THEN 362
   : J7(1)=2
   : IF D2$=" "THEN J3=J3+1
   : IF J3<=J1(C1)THEN 1062
   : IF C1=22THEN 362
   : C1=C1+1
   : GOSUB '96(J2(C1),C1)
   : J3,J4=1
1062 J0(1),J0(3),J0(4)=J2(C1)+J3-1
   : GOSUB '35(J0(3))
   : J3=J4
   : GOSUB '22(J3)
   : IF F=0THEN C7=J5(C1)
   : ELSE C7=F
   : J0=C7+1
   : GOTO 621
1104 IF V0$(J2(C1))=HEX(8F)AND J2(C1)>1THEN 134
   : IF C1=22THEN 1142
   : IF J1(C1+1)>0THEN 1166
   : IF J2(C1+1)>0AND C1<C2THEN 1154
   : J0=LEN(D1$())+1
1122 IF D1$()=" "THEN J0=J5(C1)+1
1126 GOSUB '122(J0)
   : J4=J3
   : IF J2(C1)+J3-1=J9AND D1$(J0)=" "AND D7=0THEN J3,J4=J3+1
1134 C7=J0-1
   : GOTO 134
1142 GOSUB '96(J2(C1),C1)
1146 J0=LEN(D1$())
   : IF J9=J2(C1)+J1(C1)-1AND J3(C1)>0AND D1$()<>" "THEN J0=J0+1
   : GOTO 1126
1154 GOSUB '96(J2(C1+1),C1+1)
1156 J0,J3,J4=1
   : IF D1$=HEX(17)AND J5(C1)>0THEN J0=J5(C1)+1
   : C7=J0-1
   : GOTO 134
1166 C1=C1+1
   : IF V0$(J2(C1))=HEX(86)THEN 1200
   : GOSUB '33(J2(C1))
   : M=J0
   : GOSUB '96(J2(C1),C1)
   : IF V0$(J2(C1))=HEX(8F)THEN 1156
   : J0=MIN(M,D9)
   : IF J0>LEN(D1$())+1AND J1(C1+1)=0AND C1=C2THEN J0=LEN(D1$())+1
   : IF C1=22AND J9>=J2(C1)+J1(C1)-1AND J3(C1)=0AND J0>LEN(D1$())THEN J0=LEN(D
     1$())
   : GOTO 1126
1200 IF C1<22THEN 1104
   : C1=C1-1
   : GOTO 1142
1214 IF C1=2THEN 1248
   : IF C1=3AND V0$(J2(2))=HEX(86)THEN 1248
   : C1=C1-1
   : IF V0$(J2(C1))=HEX(86)THEN C1=C1-1
   : M=J0
   : GOSUB '96(J2(C1),C1)
   : GOSUB '33(J2(C1))
   : J0=MIN(M,D9)
   : GOTO 1126
1248 J3,J4=1
1252 GOSUB '22(J3)
   : J0=F+1
   : GOTO 1134
1263 IF J0<=J5(C1)THEN 1290
   : IF V0$(J2(C1))=HEX(8F)THEN 134
   : IF J9=J2(C1)+J3-1AND D1$(J0)=" "THEN 134
   : IF C1=C2AND STR(D1$(),J0)=" "THEN 134
   : IF J0=D9THEN 1298
   : IF J3>=J1(C1)AND C1=22THEN 1146
   : IF J3>=J1(C1)AND C1=21AND V0$(22)=HEX(86)THEN 1146
   : IF D1$()=" "THEN 1122
1290 J0=J0+1
   : GOTO 1126
1298 IF C1=21AND V0$(J2(22))=HEX(86)THEN 134
   : J0=1
   : GOTO 1104
1311 IF D1$=HEX(08)THEN D1$=HEX(03)
1312 IF D1$=HEX(03)THEN IF C1=3AND V0$(J2(2))=HEX(86)OR C1=2THEN IF J3=1AND D2
     $<>" "OR J3=0THEN 134
   : IF D1$<>HEX(03)THEN IF C1=3AND V0$(J2(2))=HEX(86)OR C1=2THEN IF J0=1THEN
     134
   : IF D1$=HEX(03)THEN D7=1
   : ELSE D7=2
   : IF D1$=HEX(03)THEN 1338
   : IF J0=1THEN 1354
   : J0=J0-1
   : GOTO 1126
1338 IF J3<2AND D1$(J0)<>" "THEN 1354
   : IF J0=1AND D2$()=" "THEN 1354
   : IF J3=0THEN 1354
   : IF D1$(J0)<>" "OR J3>LEN(D2$())THEN J3,J4=J3-1
   : GOTO 1252
1354 C1=C1-1
   : IF V0$(J2(C1))=HEX(86)THEN C1=C1-1
   : GOSUB '33(J2(C1))
   : GOSUB '96(J2(C1),C1)
   : IF D7=1THEN J3,J4=J1(C1)
   : ELSE J0=D9
   : ON D7GOTO 1252,1126
   : J1=J2(C1)+J3-2
   : GOTO 234
1402 STR(V0$(),J0(3))=STR(V0$(),J0(4)+1)
   : J7=0
   : L=J8-2-J7
   : PRINT AT(0,63,17);AT(23,0,30);
   : J7(1)=0
   : C$=" "
   : C4=J0(2)
   : J1=J0(1)
   : MAT J0=ZER
   : J9=FNJ(1)
   : GOSUB '92(J2,J1,0)
   : GOTO 236
1434 IF C7$=HEX(00)THEN 1444
   : C7$=HEX(00)
   : PRINT AT(23,31,20);AT(C1,C7);
   : GOTO 134
1444 IF J7(1)=1THEN 1578
   : IF C7$=HEX(00)THEN 1448
   : C7$=HEX(80)
   : GOTO 228
1448 PRINT HEX(0706);
   : GOSUB 2030
   : GOSUB '38
1450 KEYIN D1$
   : IF D1$=HEX(82)OR D1$=HEX(A1)THEN 612
   : IF D1$=HEX(F0)OR D1$=HEX(50)THEN 1452
   : GOSUB 2270
   : GOTO 1450
1452 PRINT HEX(06);AT(0,63,17);HEX(05)
   : GOTO 150
1504 IF D1$(J0)=" "AND J2(C1)+J3-1>=J9THEN 362
   : IF C1=2AND J3=1THEN J3(1)=0
   : IF D3$<>HEX(5A)AND J7(1)<>1THEN 1548
   : IF J9+J7<J8-2THEN 1520
   : GOSUB 2345
   : GOTO 150
1520 IF D2$=" "THEN J3=J3+1
   : C=J2(C1)+J3-1
   : J9=FNJ(1)+1
   : I=J9-C+1
   : MAT COPY -STR(V0$(),C,I)TO -STR(V0$(),C+1,I)
   : V0$(C)=HEX(80)
   : J3=J3-1
   : J1=J2(C1)+J3
   : IF J7(1)=1AND J2(C1)+J3<J0(3)THEN J0(3)=J0(3)+1
   : IF C3=J0(2)THEN J0(1)=J0(3)
   : J1=C
   : J1(C1)=J1(C1)+1
   : IF C1=22THEN 1543
   : FOR C=C1+1TO 22
   : J2(C)=MAX(J2(C)+1,1)
   : NEXT C
1543 I(1)=1
   : GOTO 230
1548 J7(1)=1
   : C$="I"
   : IF D2$<>" "THEN 1560
   : IF J0<=LEN(D1$())OR J3(C1)>0THEN 1558
   : C1=C1+1
   : J3=1
   : GOTO 1560
1558 J3=J3+1
1560 J4=J3
   : J9=LEN(V0$())
   : C=J2(C1)+J3-1
   : J7=J9-C+1
   : L=J8-2-J7
   : J0(2),J0(5)=C4
   : J0(1),J0(3)=C
   : J0(4)=J8-J7
   : MAT COPY -STR(V0$(),C,J7)TO -STR(V0$(),J0(4)+1,J7)
   : STR(V0$(),C,MIN(J7,J0(4)-C+1))=" "
   : J1(C1),J3=J4
   : C2=C1
   : J9=FNJ(1)
   : J1=9E99
   : IF C1=2AND J3<=J3(1)THEN 502
   : GOTO 230
1578 IF C4=J0(2)THEN 1402
   : STR(V0$(),J9+1)=STR(V0$(),J0(4)+1)
   : J0(4)=J9
   : J0(5)=C4
   : I=1
   : V1$()="609DpageREC.page"
   : LOAD T<2>V1$()
1602 DIM I(2)
1604 DEFFN'91(C1,I,I(1),I(2))
   : PRINT HEX(06);
   : IF C1<>1THEN 1636
   : IF C3>7THEN 1626
   : CONVERT C3TO C6$,(###)
   : $TRAN(C6$,B8$())R
   : STR(C6$,,2)=" "
   : GOTO 1631
1626 CONVERT C3-7TO C6$,(###)
1631 PRINT AT(0,0,80);
   : PRINTUSING 2455,A7$(1),C6$," "," "
1636 J2(C1)=I
   : I(1)=SGN(I(1))*(J1(C1)+J5(C1+1)/1000)
1644 GOSUB '96(J2(C1),C1)
   : GOSUB '61
   : IF D2$()=" "OR D2$()=HEX(8F)OR C1=22THEN 1690
   : IF J2(C1)+J1(C1)-1<J9OR V0$(J9)=HEX(83)OR LEN(D1$())=D9THEN 1666
   : IF POS(STR(D4$,,2)=V0$(J9))=0OR LEN(D1$())<POS(-A5$()=82)THEN 1690
1666 IF I(1)=0OR C1<I(2)THEN 1674
   : IF I(1)=J1(C1)+J5(C1+1)/1000AND C1<C2-1AND C1>=I(2)THEN 1706
1674 I(1)=SGN(I(1))*(INT(I(1))-J1(C1)+J1(C1+1)+J5(C1+2)/1000)
   : J2(C1+1)=J2(C1)+J1(C1)
   : C1=C1+1
   : GOTO 1644
1690 PRINT AT(C1+1,0,);
   : C2=C1
   : FOR C=C1+1TO 24
   : J1(C),J2(C),J3(C),J4(C),J5(C)=0
   : NEXT C
1706 IF C4$="E"AND J2(C2)+MAX(J1(C2)-1,0)>=J9+J7THEN GOSUB 2025
   : IF V0$(J2(C2))=HEX(8F)THEN GOSUB 2135
   : IF C7$<>HEX(00)THEN GOSUB 2005
   : RETURN
1718 DEFFN'92(J2,J1,I(1))
1728 IF J1>0THEN 1752
   : IF J2=0THEN ON SGN(I(1))+1GOTO 1778,1787
   : IF J4(C2)<ABS(J2)AND C2>21THEN 1772
   : C=1
1742 C=C+1
   : IF J4(C)<ABS(J2)THEN 1742
   : IF J2<0THEN J1=J2(C)
   : ELSE J1=J2(C)+J1(C)-1
1752 J2=0
   : IF J1=0AND I(1)=0THEN 1778
   : J1=MIN(J1,FNJ(1)+1)
   : IF J1>1AND V0$(J1-1)=HEX(8F)THEN J1=J1-1
   : IF J1<=J2(C2)+J1(C2)-1OR C2<22THEN 1787
   : IF J1=J9+1AND J2(C2)+J1(C2)-1=J1THEN 1787
   : IF C2=22AND J1(22)=0THEN 1787
1772 GOSUB '93
   : I(1)=0
1778 GOSUB '91(1,J2(1),I(1),0)
   : I(1)=1
   : GOTO 1728
1787 IF J1=J2(2)AND J3(1)>0AND J1=J9+1AND D2>1THEN 1792
   : IF J1>=J2(2)OR D2=1THEN 1806
1792 GOSUB '94(D2-1)
   : I(1)=0
   : IF J1<I+80AND D2>1THEN 1792
   : GOTO 1778
1806 GOSUB '35(J1)
   : IF I(1)<>0THEN 1826
   : C1=C1-1
   : GOSUB '91(C1,J2(C1),0,0)
   : I(1)=1
   : GOTO 1806
1826 GOSUB '96(J2(C1),C1)
   : J3=J4
   : GOSUB '22(J4)
   : J0=F+1
   : C7=J0-1
   : PRINT HEX(06);AT(0,42,3);INT(J4(C1));AT(0,57,3);J0;HEX(020400000E);AT(C1,
     C7);HEX(02050F);
   : J1=0
   : IF V0$(J2(C1))<>HEX(86)THEN RETURN
   : J1=J2(C1)+J1(C1)
   : GOTO 1752
1856 DEFFN'93
   : D2=MIN(D2+1,63)
   : J2(1),I=J2(20)
   : J6$(D2)=BIN(I,2)
   : J7$(D2)=BIN(J4(20),2)
   : J4(1),D3=J4(20)
   : D4$(D2-1)=BIN(J5(20))
   : J5(1)=J5(20)
   : RETURN
1890 DEFFN'94(I)
   : D2=MAX(I,1)
   : IF D2>1THEN 1916
   : J7$(1)=BIN(0,2)
   : J6$(1)=BIN(1,2)
   : D6$()=ALL(00)
1916 I,J2(1)=VAL(J6$(D2),2)
   : D3=VAL(J7$(D2),2)
   : J5(1)=0
   : IF D2>1THEN J5(1)=VAL(D4$(D2-1))
   : STR(J6$(),2*D2+1),STR(J7$(),2*D2+1)=ALL(FF)
   : GOSUB '33(I)
   : RETURN
2005 C3$="(Autoscore Mode)"
   : GOTO 2440
2013 C3$="Deleting Page Break"
   : GOTO 2410
2025 C3$="(Document End)"
   : GOTO 2450
2030 C3$="End of Edit?"
   : GOTO 2445
2035 C3$="Exiting"
   : GOTO 2435
2055 C3$="Going to Page "
   : GOTO 2435
2065 C3$="Inserting Page Break"
   : GOTO 2410
2070 C3$="Insert What?"
   : GOTO 2445
2075 C3$="Loading Copy"
   : GOTO 2445
2090 C3$="Loading Glbl Rpl"
   : GOTO 2445
2095 C3$="Loading Glbl Srch"
   : GOTO 2445
2100 C3$="Loading Glossary"
   : GOTO 2445
2105 C3$="Loading Move"
   : GOTO 2445
2110 C3$="Loading Replace"
   : GOTO 2445
2115 C3$="Loading Search"
   : GOTO 2445
2120 C3$="Loading Supr Copy"
   : GOTO 2445
2125 C3$="Loading Supr Move"
   : GOTO 2445
2130 C3$="Loading Repagntn"
   : GOTO 2445
2135 C3$="(Page End)"
   : GOTO 2450
2170 C3$="Which Command?"
   : GOTO 2445
2205 C3$="Emergency exit without save?"
   : GOTO 2410
2215 C3$="Wrong page"
   : GOTO 2410
2270 C3$="Execute or Cancel"
   : GOTO 2410
2290 C3$="First finish Insert"
   : GOTO 2410
2320 C3$="Invalid Key - Ignored"
   : GOTO 2410
2330 C3$="Move Cursor"
   : GOTO 2410
2335 C3$="No Next Screen"
   : GOTO 2410
2340 C3$="No Previous Screen"
   : GOTO 2410
2345 C3$="Page Full"
   : GOTO 2410
2355 C3$="Too Many Pages"
   : GOTO 2410
2360 C3$="Unknown Command"
   : GOTO 2410
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 ###
2503 DEFFN'61
   : MAT REDIM D6$(D9)2
   : PRINT HEX(06);B5$(1);AT(C1,0);
   : IF D1$()=" "THEN 2593
   : I=J2(C1)+J1(C1)-1
   : IF J0(4)<J2(C1)OR I<J0(3)THEN 2593
   : C=MAX(J0(3),J2(C1))
   : I=MAX(MIN(I,J0(4))-C+1,1)
   : C=C-J2(C1)+1
   : IF C=1AND I=J1(C1)THEN 2587
   : D6$()=ALL(00)
   : MAT SEARCHSTR(D1$(),1),<>" "TO D6$()
   : C=VAL(D6$(C),2)
   : D6$()=ALL(00)
2557 MAT SEARCHSTR(D1$(),C),<>" "TO D6$()
   : I=VAL(D6$(I),2)
   : IF C>1THEN PRINT STR(D1$(),,C-1);
   : PRINT HEX(020402000E);STR(D1$(),C,I);HEX(020400000E);
   : IF C+I<=D9THEN PRINT STR(D1$(),C+I);
   : IF C+I-1<80AND C+I>D9THEN PRINT TAB(80);
   : RETURN
2587 PRINT HEX(020402000E);
2593 PRINT STR(D1$());HEX(020400000E);
   : IF LEN(STR(D1$()))<80THEN PRINT TAB(80);
   : RETURN
2602 DEFFN'96(I0,C1)
   : IF I0<1THEN I0=1
   : IF POS(HEX(8F86)=V0$(I0))=0THEN J3(C1)=D9
   : IF I0<>D1THEN IF I0<D1+2OR D1<1OR POS(STR(V0$(),D1+1,I0-D1-1)=86)>0THEN G
     OSUB '33(I0)
   : D1$()=" "
   : MAT REDIM D1$(D9)1,D2$(D9)1,D5$(D9)1,I0$(D9)1
   : IF V0$(I0)<>" "THEN 2638
2620 J1(C1),J5(C1+1)=0
   : J2(C1)=I0
   : D2$()=" "
   : GOSUB 2684
   : RETURN
2629 V0$(I0)=HEX(80)
   : GOTO 2638
2630 A=POS(STR(V0$(),I0)=83)
   : IF A=0AND I0=1THEN 2868
   : IF A=0OR A>158THEN 2629
   : IF D7$=" "AND A>80THEN 2629
   : D9=A
   : MAT REDIM D1$(D9)1,D2$(D9)1,D5$(D9)1,I0$(D9)1
2638 J2(C1)=I0
   : D2$(),D5$()=STR(V0$(),I0)
   : B=POS(D2$()=20)
   : IF B>0THEN STR(D2$(),B),STR(D5$(),B)=" "
   : IF D2$()=" "THEN 2620
   : $TRAN(D5$(),J9$())
   : B=1
   : D0=J5(C1)
   : I1=D0+1
   : D1$()=" "
   : GOSUB 2684
2658 E=POS(STR(D5$(),B)<FF)
   : IF E<2THEN 2674
   : E=MIN(E-1,D9-I1)
   : IF E=0THEN 2712
   : STR(D1$(),I1,E)=STR(D2$(),B,E)
   : B=B+E
   : I1=I1+E
   : GOTO 2658
2674 E=E-1
   : IF E<0THEN 2712
   : ON D5$(B+E)GOTO 2778,2830,2856,2830,2938,2870,2870
   : STOP #
   : END
2684 IF C1<>1THEN 2692
   : J4(C1)=D3
   : RETURN
2692 J4(C1)=J4(C1-1)
   : IF D2$(1)=HEX(86)THEN 2708
   : I$=B9$(7)&B9$(5)&" 1 "&B9$(6)&" 2   3"
   : J4(C1)=J4(C1-1)+POS(I$=STR(A5$(),2))/4
   : IF D2=1AND C1<3THEN 2708
   : IF V0$(J2(C1-1))<>HEX(86)THEN 2708
   : I=MAX(1,POS(-STR(V0$(),,J2(C1-1)-1)=86))
   : J4(C1)=J4(C1-1)+POS(I$=V0$(I+1))/4
2708 IF D2=1AND C1=2THEN J4(C1)=1
   : RETURN
2712 E=LEN(D2$())-B+1
   : IF E=0THEN 2764
   : IF E>D9-I1+1THEN E=D9-I1+1
   : STR(D1$(),I1,E)=STR(D2$(),B,E)
   : B=B+E
   : IF D1$=HEX(81)THEN 2764
2724 I7,I1=LEN(D1$())
   : D1$=D1$(I7)
   : IF POS(STR(D4$,2)=D1$)=0THEN 2738
   : IF I7<D9THEN STR(D1$(),I7+1)=" "
   : J3(C1)=0
   : GOTO 2768
2738 IF I1<>D9AND J2(C1)+LEN(D2$())>J9THEN 2764
   : IF POS(D5$=D1$)>0AND I1=D9THEN I7=I7-1
   : I0$()=D1$()
   : $TRAN(I0$(),D5$)R
   : IF POS(D5$=D1$)=0THEN 2752
   : I7=POS(-STR(I0$(),1,I7)<>80)
   : IF I7=0THEN 2764
2752 J0=POS(-STR(I0$(),1,I7)=80)
   : IF J0<>0AND J0>HTHEN 2760
   : J3(C1)=0
   : GOTO 2766
2760 B=MAX(B-(I1-J0),1)
   : IF J0<D9THEN STR(D1$(),J0+1)=" "
2764 J3(C1)=D9-J0
2766 IF B<=D9THEN STR(D2$(),B)=" "
2768 J1(C1)=B-1
   : J5(C1+1)=D0
   : H=0
   : RETURN
2778 IF B=1OR D2$(B-1)=HEX(84)THEN 2790
2782 IF B<D9THEN STR(D2$(),B+1)=" "
   : D0=0
   : J3(C1)=D9-LEN(D1$())
   : GOTO 2768
2790 D1$(I1)=D2$(B)
   : I1=I1+1
   : B=B+1
   : E=POS(STR(D5$(),B)<FF)
   : IF E=0THEN A=LEN(D2$())-B+1
   : ELSE A=E-1
   : H=INT((D9-D0-A)/2)
   : IF H>0THEN I1=I1+H-1
   : IF I1+A>D9THEN A=D9-I1
   : IF A>0THEN STR(D1$(),I1,A)=STR(D2$(),B,A)
   : J0,I1=I1+A
   : B=B+A
   : IF B<=D9THEN 2658
   : GOTO 2712
2824 H=I1+POS(STR(A5$(),I1+1)=82)
   : IF H=I1THEN H=D9
   : RETURN
2830 GOSUB 2824
   : IF H=D9THEN 2856
   : IF D5$(B+E)=HEX(04)THEN D0=H-1
   : C=H-I1-1
   : IF C=0THEN 2844
   : STR(D1$(),I1,C)=" "
   : I1=I1+C
2844 D1$(I1)=D2$(B)
   : I1=I1+1
   : B=B+1
   : GOTO 2658
2856 STR(D1$(),I1),STR(D2$(),B)=D2$(B)
   : IF D2$(B)=HEX(83)THEN D0=0
   : B=B+1
   : GOTO 2724
2868 V0$(POS(STR(V0$(),3)<>80)+1)=HEX(83)
2870 IF B<>1THEN 2782
   : IF J2(C1)=J9AND C1>1THEN 2922
   : IF D1+POS(STR(V0$(),D1)=83)<>J2(C1)THEN 2890
   : STR(V0$(),D1+1,J9-D1)=STR(V0$(),J2(C1)+1)
   : IF J0(2)=C3AND J0(1)>=J2(C1)THEN J0(1),J0(3)=MAX(J0(1)-J1(C1-1),POS(V0$()
     =83)+1)
   : C1=C1-1
   : I0=J2(C1)
   : IF I0=1THEN D2$(1)=HEX(8F)
   : J9=FNJ(1)
2890 A=POS(D2$()=83)
   : IF A=0THEN 2630
   : IF A<81THEN 2906
   : IF D7$="H"AND A<159THEN 2906
   : STR(V0$(),J2(C1)+79)=STR(V0$(),J2(C1)+A-1)
   : A=80
   : J9=FNJ(1)
   : STR(D2$(),80)=HEX(83)&" "
   : GOTO 2908
2906 IF A<D9THEN STR(D2$(),A+1)=" "
2908 B=B+A
   : I1=I1+A
   : D1$()=D2$()
   : D0,J5(C1),J5(C1+1)=0
   : GOSUB '33(J2(C1))
   : GOTO 2768
2922 STR(D2$(),B+1)=" "
   : D1$(I1)=D2$(B)
   : B=B+1
   : I1=I1+1
   : GOTO 2768
2938 GOSUB 2824
   : IF H=D9THEN 2856
   : H=H-1
   : I0$()=D2$()
   : $TRAN(I0$(),C9$())R
   : C=POS(STR(I0$(),B)=A6$)
   : IF B<D9THEN I=POS(STR(D5$(),B+1)<FF)
   : ELSE I=0
   : IF I>0AND C>0THEN C=MIN(C,I+1)
   : ELSE IF I>0THEN C=I+1
   : IF C=0THEN C=LEN(D2$())-B+1
   : I=0
2955 I=I+1
   : IF I>=CTHEN 2957
   : IF POS(STR(I0$(),B+I-1)=80)=0THEN 2957
   : I=I+POS(STR(I0$(),B+I-1)=80)-1
   : IF I>=CTHEN 2957
   : IF I0$(B+I-2)<"0"OR I0$(B+I-2)>"9"THEN 2955
   : C=I
2957 IF C=0THEN C=MAX(MIN(POS(STR(D2$(),B)=20)-1,D9-B),1)
   : IF C<>0THEN H=H+1
   : IF J9<=J2(C1)+B-1+C-1AND I0$(B+C-1)<>A6$AND D5$(B+C-1)=HEX(FF)THEN H=H-1
   : I=MAX(POS(-STR(D1$(),1,H)<>20)+1,1,H-C+1)
   : IF D5$(B+C-1)<HEX(FF)THEN C=MAX(C-1,1)
   : C=MIN(C,D9-I)
   : STR(D1$(),I,C)=STR(D2$(),B,C)
   : I1=LEN(D1$())+1
   : B=B+C
   : GOTO 2658
2982 DEFFN'33(C)
   : D1=MAX(1,POS(-STR(V0$(),,MAX(C,2))=86))
   : A5$()=STR(V0$(),D1)
   : D9=POS(A5$()=83)
   : STR(A5$(),D9+1)=" "
   : RETURN
3000 DEFFN'31
   : A5=0
3001 DEFFN'32
   : A5$()="609CloseJCATSMAL"
   : A5$=R3$()
   : R3$()=STR(R3$(),10)
   : LOAD T<2>A5$()