Listing of file='609EDTRG' on disk='vmedia/701-2737G.wvd.zip'
# Sector 349, program filename = '609EDTRG'
0009 COM J2$(158)1
0010 REM 609EDTRG 238-08/07/86
0011 DEFFNP(I)=1+D5*(D8-80)
: DIM I0$(158)1,I(2),C$1,C8$(32)16,C7$(384)1
: GOSUB '5
: J7(2)=0
: GOSUB '47
0018 DEFFNJ(I)=POS(V0$()=" ")-1
: IF J7(1)>2THEN J7(1)=0
: PRINT AT(0,63,17);
: IF J7(1)=1THEN GOSUB 2057
: IF J7(1)=1THEN C$="I"
: J=J7(3)
: J7(3)=0
: L=J8-2-J7
: IF J<2THEN D5=0
: 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
: 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 GOSUB '48(D5)
0134 J3=J4
: D7=0
0142 D2$=D1$(J0)
: IF J2(C1)+J3>J9AND POS(-D1$()<>" ")<J0THEN D2$=HEX(00)
: IF J9+J7+162>J8AND J2(C1)>J8-162THEN 150
: IF D3$=HEX(4A)THEN 150
: IF D2$=HEX(00)AND POS(D4$=V0$(J9))=0THEN 5120
: IF POS(D4$=D2$)=0AND J0<LEN(D1$())AND D2$<>" "AND D2$<>HEX(00)THEN 5120
: GOTO 150
0147 PRINT HEX(06);AT(C1,C7);HEX(02050F);
: C3$=" "
: GOTO 152
0148 GOSUB '48(D5)
: J3=J4
0150 PRINT HEX(06);AT(23,48,32);
: IF C5$<>" "THEN GOSUB 247
: GOSUB 2425
0152 KEYIN D1$,,402
0156 $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 2078
: IF C5$="T"THEN GOSUB 2079
: C5$=" "
: RETURN
0250 KEYIN D1$
0254 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=FNJ(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 2057
: PRINT HEX(05);
: RETURN
0304 IF FNJ(1)<>LEN(V0$())THEN 312
: GOSUB 2074
: 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 2075
: GOTO 152
0372 GOSUB 2078
: 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 2074
: 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 2077
: 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 2076
: 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 2079
: 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 2056
: C4=C3+1
: C=1
: J7(3)=1
: V1$()="609HpageRECMGR"
: COM CLEAR J2$()
: 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 2064
: GOTO 620
0554 J7(1)=6
: J7(2)=10
: J7(3)=0
: J0(1),J0(3),J1,J0(4)=0
: C4=8
: GOSUB 2060
: GOTO 620
0557 IF V0$(J1)=HEX(8F)THEN 362
: J7(1)=7
: J7(2)=1
: GOSUB 2063
: GOTO 620
0560 IF V0$(J1)=HEX(8F)THEN 362
: J7(1)=8
: J7(2)=1
: GOSUB 2059
: GOTO 620
0563 J7(1)=3
: J7(2)=1
: GOSUB 2058
: GOTO 570
0566 J7(1)=9
: J7(2)=11
: GOSUB 2065
: GOTO 620
0569 J7(1)=4
: J7(2)=1
: GOSUB 2062
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$())
: GOSUB '48(D5)
: GOTO 620
0572 J7(1)=10
: J7(2)=11
: GOSUB 2066
: GOTO 620
0578 GOSUB '38
: J1=J2(C1)+J3-1
: IF J7(1)<>1THEN J7=1
: IF D2$=" "THEN J1=J1+1
: GOSUB 2061
: V1$()="609GpageRECMGR"
: COM CLEAR J2$()
: 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 2073
: GOTO 152
0612 IF C1$="Glossary"THEN 620
: C6$=" "
: GOSUB 2054
: GOTO 620
0614 CONVERT C4-7TO C6$,(###)
: GOSUB 2055
0620 V1$()="609FpageREC.page"
: COM CLEAR J2$()
: LOAD T<2>V1$()BEG 100
0621 V1$()="609EHILT609Eline609EPLIN609EPRIN609EPOS 609EFRMT"
: IF J7(1)=2THEN GOSUB '51
: COM CLEAR J2$()
: LOAD T<INT((LEN(V1$())+7)/8)>V1$()
0624 GOSUB '38
0626 PRINT HEX(05);
: GOSUB 2069
: 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
: GOSUB 2080
: GOTO 626
0642 IF J7(1)=1THEN 656
: J7(1)=12
: D7=0
: V1$()="609EHYP 609Eline609EPLIN609EPRNT609Eloct609EPOS 609EFRMT"
: COM CLEAR J2$()
: LOAD T<7>V1$()
0648 ON POS(HEX(50F001110616)=D1$)/2+.5GOTO 652,660,668
: GOSUB 2080
: GOTO 626
0652 PRINT AT(0,63,17);B5$(1)
: GOTO 228
0656 GOSUB 2073
: GOTO 626
0660 IF J7(1)=1THEN 656
: IF C3>7THEN 666
: GOSUB 2071
: GOTO 626
0666 J7(1)=11
: GOTO 805
0668 IF D1$(J0)<>" "THEN 670
: GOSUB 2075
: GOTO 628
0670 J9$=BIN(J2(C1)+J3-1,2)&BIN(C3)
: GOTO 652
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>158THEN 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)<>" ")
: GOSUB '48(D5)
: RETURN
0797 D3$=D1$
: GOSUB '92(0,J2(C1+1),1)
: D1$=D3$
: D2$=D2$(1)
: RETURN
0805 J7(2)=0
: COM CLEAR J2$()
: 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)
: GOSUB '48(D5)
: J1=J1+1
0860 V1$()="609Eform609Eline609EPLIN"
: COM CLEAR J2$()
: 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
0979 DEFFN'47
: D8=3
: I6=D1
: D1=FNJ(1)
0985 GOSUB '33(D1-1)
: D8=MAX(D8,D9)
: IF D1>1THEN 985
: GOSUB '33(I6)
: 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 2051
: D7=1
: J0(1),J0(3),J0(4)=J2(C1)
: J0(2),J0(5)=C4
: V1$()="609FpageREC.page"
: COM CLEAR J2$()
: 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 J0=J5(C1)+1
: ELSE J0=F+1
: GOSUB '48(D5)
: 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 GOSUB '48(D5)
: 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
: GOSUB '48(D5)
: 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 2053
: 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 2072
: 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 2078
: 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
: K=1
: 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"
: COM CLEAR J2$()
: LOAD T<2>V1$()
1602 DIM I(2)
1604 DEFFN'91(C1,I,I(1),I(2))
: IF C3>7THEN 1626
: CONVERT C3TO C6$,(###)
: $TRAN(C6$,B8$())R
: STR(C6$,,2)=" "
: GOTO 1630
1626 CONVERT C3-7TO C6$,(###)
1630 PRINT HEX(06);
: IF C1<>1THEN 1636
: 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
: GOSUB '48(D5)
: 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
1954 DEFFN'48(I8)
: IF D5=1AND D8-J0>79THEN D5=0
: IF J0>80THEN D5=1
: IF D5=0THEN C7=J0-1
: ELSE C7=79-D8+J0
: IF I8=D5OR I8=-1THEN RETURN
: GOSUB '94(D2)
: J1=J2(C1)+J3-1
: I8=J0+C1/100
: GOSUB '91(1,J2(1),0,0)
: GOSUB '35(J1)
: IF 100*MOD(I8,1)-1<>C1OR C1=C2THEN 1992
: C1=C1+1
: J4=0
1992 J3=J4
: J1=0
: GOSUB '96(J2(C1),C1)
: PRINT AT(C1,C7);
: J0=INT(I8)
: RETURN
2005 C3$="(Autoscore Mode)"
: GOTO 2440
2025 C3$="(Document End)"
: GOTO 2450
2051 C3$="Deleting Page Break"
: GOTO 2410
2053 C3$="End of Edit?"
: GOTO 2445
2054 C3$="Exiting"
: GOTO 2435
2055 C3$="Going to Page "
: GOTO 2435
2056 C3$="Inserting Page Break"
: GOTO 2410
2057 C3$="Insert What?"
: GOTO 2445
2058 C3$="Loading Copy"
: GOTO 2445
2059 C3$="Loading Glbl Rpl"
: GOTO 2445
2060 C3$="Loading Glbl Srch"
: GOTO 2445
2061 C3$="Loading Glossary"
: GOTO 2445
2062 C3$="Loading Move"
: GOTO 2445
2063 C3$="Loading Replace"
: GOTO 2445
2064 C3$="Loading Search"
: GOTO 2445
2065 C3$="Loading Supr Copy"
: GOTO 2445
2066 C3$="Loading Supr Move"
: GOTO 2445
2067 C3$="Loading Repagntn"
: GOTO 2445
2069 C3$="Which Command?"
: GOTO 2445
2070 C3$="Command Merge not implemented"
: GOTO 2410
2071 C3$="Wrong page"
: GOTO 2410
2072 C3$="Execute or Cancel"
: GOTO 2410
2073 C3$="First finish Insert"
: GOTO 2410
2074 C3$="Invalid Key - Ignored"
: GOTO 2410
2075 C3$="Move Cursor"
: GOTO 2410
2076 C3$="No Next Screen"
: GOTO 2410
2077 C3$="No Previous Screen"
: GOTO 2410
2078 C3$="Page Full"
: GOTO 2410
2079 C3$="Too Many Pages"
: GOTO 2410
2080 C3$="Unknown Command"
: GOTO 2410
2100 C3$="(Autoscore Mode)"
: GOTO 2440
2101 C3$="Exiting"
: GOTO 2435
2102 C3$="Format Copied"
: GOTO 2410
2103 C3$="Going to Page "
: GOTO 2435
2104 C3$="Delete What?"
: GOTO 2445
2105 C3$="Copy What?"
: GOTO 2445
2106 C3$="Move What?"
: GOTO 2445
2107 C3$="Replace What?"
: GOTO 2445
2108 C3$="Loading Editor"
: GOTO 2445
2109 C3$="Which Command?"
: GOTO 2445
2110 C3$="Cannot find one"
: GOTO 2410
2111 C3$="First finish Delete"
: GOTO 2410
2112 C3$="First finish Copy"
: GOTO 2410
2113 C3$="First finish Move"
: GOTO 2410
2114 C3$="First finish Replace"
: GOTO 2410
2115 C3$="Invalid Key - Ignored"
: GOTO 2410
2116 C3$="Move Cursor"
: GOTO 2410
2117 C3$="No Next Screen"
: GOTO 2410
2118 C3$="No Previous Screen"
: GOTO 2410
2119 C3$="Unknown Command"
: GOTO 2410
2135 C3$="(Page End)"
: GOTO 2450
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>1AND C>FNP(1)THEN PRINT STR(D1$(),FNP(1),MIN(C-FNP(1),80));
: IF C<FNP(1)+79AND C+I>=FNP(1)THEN PRINT HEX(020402000E);STR(D1$(),MAX(C,F
NP(1)),MIN(I-MAX(0,FNP(1)-C),FNP(1)+80-MAX(C,FNP(1))));HEX(020400000E);
2578 IF C+I<=D9THEN IF C+I<FNP(1)+80AND C+I>FNP(1)THEN PRINT STR(D1$(),MAX(C+I
,FNP(1)),MIN(80+FNP(1)-C-I,LEN(STR(D1$()))-MAX(C+I,FNP(1))+1));
: IF LEN(STR(D1$()))<FNP(1)+79THEN PRINT TAB(80);
: RETURN
2587 PRINT HEX(020402000E);
2593 IF LEN(STR(D1$()))>=FNP(1)THEN PRINT STR(D1$(),FNP(1),MIN(80,LEN(STR(D1$(
)))-FNP(1)+1));HEX(020400000E);
: IF LEN(STR(D1$()))<D8AND D5=1THEN PRINT TAB(80);
: IF LEN(STR(D1$()))<80AND D5=0THEN PRINT TAB(80);
: RETURN
2599 DEFFNP(I)=1+D5*(D8-80)
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)
: IF POS(D2$()=20)>0THEN STR(D2$(),POS(D2$()=20)),STR(D5$(),POS(D2$()=20))=
" "
: 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
: A5$()="609CloseJCATSMAL"
: A5$=R3$()
: R3$()=STR(R3$(),10)
: LOAD T<2>A5$()
4000 DIM I(2)
4005 DEFFN'50
: RETURN CLEAR
4010 DEFFNJ(I)=POS(V0$()=" ")-1
: IF C3>7THEN IF C3>J0(2)OR V0$(J0(4))=HEX(8F)THEN 4030
: 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=MIN(C1-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
4020 GOTO 10
4030 IF J9=J0(4)OR J9-J0(4)+J0(1)+1<J8-1THEN 4040
4035 C5$="F"
: GOTO 4050
4040 IF J0(1)+246*MIN(VAL(J1$(C3+1),2)-C5-C6+1,V0)>J8-3AND J9=J0(4)THEN 4035
: V1$()="609DpageREC.page"
: COM CLEAR J2$()
: LOAD T<2>V1$()
4050 J1=J0(1)
: IF C3<>J0(2)THEN 4060
: GOSUB '35(J1)
: IF C1=2AND J1<J2(C1)THEN C1=1
: MAT J0=ZER
: J7(1)=0
: J7(3)=3
: GOTO 4020
4060 C4=J0(2)
: MAT J0=ZER
: J7(1),J7(3)=0
: V1$()="609FpageRECMGR"
: COM CLEAR J2$()
: LOAD T<2>V1$()
5120 GOSUB 247
: E1,E2=J3
: E2=1
: IF D9=J0THEN 150
: IF POS(D4$=D1$(J0))>0THEN 5300
: I0$()=D2$()
: $TRAN(I0$(),HEX(018101820183018401850186018F200180A0))R
: IF POS(-STR(I0$(),,E1)=01)>0THEN E1=POS(-STR(I0$(),,E1)=01)+1
: ELSE E1=1
: IF D5=1THEN E1=MAX(E1,J3-(J0-FNP(1)))
: IF E1>1AND POS(HEX(8185)=D2$(E1-1))>0THEN 150
5260 IF POS(STR(I0$(),E1)=01)>0THEN E2=POS(STR(I0$(),E1)=01)-2
: ELSE E2=D9-E1+1
: IF E2<J3-E1+1THEN 150
: IF E2=D9-E1+1AND D9>LEN(D1$())AND J2(C1)+J1(C1)-1<J9THEN E2=E2+LEN(D1$())
-D9-1
: IF J9>J2(C1)+J1(C1)-1THEN E2=MIN(E2,J1(C1)-E1+1)
: E2=MIN(E2,J8-J9-1+J1(C1)-E1,D9-(J0-J3+E1),FNP(1)+80-(J0-J3+E1))
5300 E4=J3-E1+1
: I$=ALL(00)
: STR(I$,2,1)=BIN(E4)
: STR(I$,4,1)=C7$
: STR(I$,12,1)=BIN(E2+1)
: GOSUB 2425
: IF J7(1)=1AND J2(C1)+J1(C1)>=J0(3)THEN PRINT HEX(020402000E);
: ELSE PRINT HEX(0F);
: PRINT AT(C1,C7);
: $GIO(C8$(),I$)D2$(E1+VAL(STR(I$,2))-1);C7$(VAL(STR(I$,3))+VAL(C7$)+1)
: E3=VAL(STR(I$,2))
: E2$=HEX(01)
: IF STR(I$,8,1)<>HEX(00)THEN E2$=HEX(02)
5520 D1$=STR(I$,3)
: IF STR(I$,8,1)<>HEX(00)THEN D1$=STR(I$,6)
: IF J7(1)=1THEN PRINT HEX(0F);
: E5=POS(-STR(D2$(),E1,E2)<>" ")
: IF STR(D2$(),E1,E2)=" "THEN E5=0
: IF E5=0THEN 5690
: $TRAN(STR(D2$(),E1,E5),HEX(830D838D))R
5690 STR(V0$(),J2(C1)+E1-1,E2)=STR(D2$(),E1,E2)
: GOSUB '22(E1)
: IF J5(C1)>0THEN F=MAX(F,J5(C1))
: STR(D1$(),F+1,E2)=STR(D2$(),E1,E2)
: J3,J4=E1+E3-1
: J0=F+E3-1+1
: J9=FNJ(1)
: GOSUB '48(D5)
: IF D2$=HEX(00)THEN J9=FNJ(1)
: IF D2$=HEX(00)AND D2$()<>" "THEN J1(C1)=LEN(D2$())
: IF E3=E2+1AND J8-1=J9+J7THEN 372
: IF E3=E2+1THEN 142
: D2$=D1$(J0)
5860 IF J2(C1)+J3>J9AND POS(-D1$()<>" ")<J0THEN D2$=HEX(00)
: PRINT AT(C1,C7);
: IF STR(I$,11,1)=HEX(06)THEN 254
: ON E2$GOTO 156,402
6000 DEFFNP(I)=1+D5*(D8-80)
: DIM I0$(158)1,I7$4,I(2)
6005 DEFFN'51
: RETURN CLEAR
6010 DEFFNJ(I)=POS(V0$()=" ")-1
: J0(5)=C3
: GOSUB '47
: IF J0(2)>0THEN 6020
: J0(2),J0(5)=C3
: J0(1),J0(3),J0(4),J1=J2(C1)+J3-1
: I2,I3=C1
: GOTO 7160
6020 IF J0(2)=C3THEN J0(3)=J0(1)
: ELSE J0(3)=1
: J1=MAX(J0(3),MIN(J1,FNJ(1)))
: J0(4)=MAX(J1,J0(3),POS(V0$()=83)+1)
: J=J7(3)
: J7(3)=0
: ON JGOTO 6030,6040,6060,6030,6210,6080,6120
: D1=1
: GOSUB '63
6030 IF D9=0THEN D9=80
: GOSUB '40
: J7=0
: D2=1
: PRINT HEX(03)
: I(1)=0
6040 GOSUB '94(D2)
6050 C1=1
6060 J9=FNJ(1)
: GOSUB '91(C1,J2(C1),I(1),0)
: D0=J5(1)
: GOSUB '95(J2,J1,1,0)
: ON J7(1)GOSUB ,2104,2105,2106,,,2107,2107,2105,2106
: C9=0
: J3=J4
: GOTO 6090
6080 IF C7$<>HEX(00)THEN GOSUB 2100
: IF D1$(1)<>HEX(86)THEN 6090
: J1=J2(C1+1)
: GOSUB '93
: GOTO 6050
6090 GOSUB '22(MAX(J4,1))
: IF F=0THEN J0=J5(C1)+1
: ELSE J0=F+1
6100 GOSUB '48(D5)
6110 J3=J4
: D7=0
: D2$=D1$(J0)
: IF J2(C1)+J3>J9AND POS(-D1$()<>" ")<J0THEN D2$=HEX(00)
: PRINT HEX(06);AT(23,48,32);
: GOSUB 2425
6120 KEYIN D1$,,6370
: $TRAN(D1$,HEX(828482E582A12081))R
: ON POS(HEX(82FF08)=D1$)GOTO 6290,6250,7100
6130 D1$=D1$XOR C7$
: $TRAN(D1$,HEX(8020830D838D))R
6140 IF D2$<>" "AND D2$<>HEX(8F)THEN 6160
6150 GOSUB 2116
: GOTO 6120
6160 IF D2$<>HEX(00)THEN 6180
: D1$=HEX(08)
: GOTO 6110
6170 J1=POS(STR(V0$(),J2(C1)+J3)=D1$)
6180 GOSUB '45
: J1=I4
: IF J1>0THEN 6270
6190 GOSUB 2110
: GOTO 6120
6200 J1,J0(4)=J0(4)+J1
6210 I2=C1
: GOSUB '35(J1)
: I3=MAX(C1,I2)
: I2=MIN(C1,I2)
6220 IF J1=J2(C1)+J3-1AND D1$(J0)=" "THEN I5=J3*1000+J0
: ELSE I5=0
: I6=0
: IF I5<>0AND I2<>I3THEN I6=C1
6230 GOSUB '91(I2,J2(I2),1,I3)
: GOSUB '95(0,J1,1,MOD(I5,1000))
: ON J7(1)GOSUB ,2104,2105,2106,,,2107,2107,2105,2106
: IF I5=0THEN 6090
: IF I6<>C1THEN 6240
: J0=MOD(I5,1000)
: GOTO 6100
6240 C1=C1+1
: GOSUB '96(J2(C1),C1)
: J3,J4=0
: J0=MOD(I5,1000)
: GOTO 6100
6250 KEYIN D1$
: ON POS(HEX(A008)=D1$)GOTO 6260,7100
: PRINT D1$;HEX(08);
: GOSUB 2115
: GOTO 6120
6260 D1$=HEX(A0)
: GOTO 6140
6270 I=J0(4)
6280 IF POS(-STR(V0$(),,J0(4)+I4)=86)=0THEN 6200
: IF POS(STR(V0$(),POS(-STR(V0$(),,J0(4)+I4)=86),J0(4)+I4-POS(-STR(V0$(),,J
0(4)+I4)=86))=83)>0THEN 6200
: J0(4)=J0(4)+I4
: GOSUB '45
: J1=I4
: IF I4>0THEN 6280
: J0(4)=I
: GOTO 6190
6290 IF J7(1)<>2THEN 6300
: GOSUB '50
6300 IF J7(1)<>3AND J7(1)<>4AND J7(1)<>7AND J7(1)<>8THEN 6310
: V1$()="609Ecm1 609Eloct"
: LOAD T<2>V1$()
6310 V1$()="609Escm3REC.page"
: J7(2)=12
: LOAD T"609Escm1"
6320 GOSUB 2108
6330 GOTO 10
6340 DEFFN'98(X,Y)
: ON YGOTO 6350,6360
6350 IF X=2THEN J0(4)=J2(C1)+J1(C1)-1
: IF X=1THEN PRINT HEX(06);AT(C1,0);B5$(1);STR(D1$(),FNP(1),MIN(D9-FNP(1)+1
,80));HEX(0F);
: ELSE GOSUB '61
: RETURN
6360 STR(A5$(),,1)=HEX(86)
: PRINT HEX(06);AT(C1,0);B5$(X);STR(V0$(),J2(C1)+FNP(1)-1,MIN(POS(STR(V0$()
,J2(C1))=83)-FNP(1)+1,80));HEX(0F);
: STR(A5$(),,1)=HEX(8F)
: RETURN
6370 IF D1$<HEX(80)OR D1$=HEX(F0)THEN 6380
: D1$=AND HEX(7F)
: GOTO 6130
6380 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 6130
: IF D1$<HEX(16)THEN 6410
: D7=0
: I2=C1
: ON VAL(D1$)-21GOTO 7040,6940,7070,7100,6700,7070,6430,6480,,6560,7170,639
0,6700
: GOTO 6400
6390 IF D2$=" "OR D2$=HEX(8F)THEN 6400
: D7=0
: ON VAL(D1$)+1GOTO 6530,,6550,6560,,6570,6590,6600,,,,,6630,6610,,,6580,,,
,,6620,,,,,,,,,,,6160,6630
6400 GOSUB 2115
: GOTO 6120
6410 IF J7(1)<>0AND POS(HEX(08090A0B11121314)=D1$)>0THEN 6640
: IF POS(HEX(08090A0B121314)=D1$)=0THEN 6420
: J1=J2(C1)+J3-1
: IF J1>J9AND POS(HEX(1314)=D1$)=0THEN 6150
6420 ON VAL(D1$)+1GOTO 6390,6540,6390,6390,6840,6390,6390,6390,6700,6700,6700,
6700,6670,6390,,6830,6390,6700,6700,6700,6700,6390
: GOTO 6400
6430 GOSUB '40
: J1=J2(C1)+J3-1
: 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 J1<J0(3)THEN 6450
: IF D2=1AND C3>J0(2)THEN 6470
: IF D2=1THEN 6440
: GOSUB '94(D2-1)
: J0(4)=J1
: GOTO 6520
6440 IF C3>J0(2)THEN 6470
: J1=0
: IF J2(C1)+J3-1=J0(3)THEN 6460
6450 J1,J0(4)=J0(3)
: I3=C1
: GOSUB '35(J1)
: I2=C1
: GOTO 6220
6460 GOSUB 2118
: GOTO 6120
6470 C4=C3-1
: J1=9E99
: GOTO 6650
6480 GOSUB '40
: J1=J2(C1)+J3-1
: IF J1<J2(20)+J1(20)AND J1(21)>0THEN J1=J2(20)+J1(20)
: IF J2(C2)+J1(C2)-1>J9THEN 6640
: IF V0$(J1)=HEX(86)THEN J1=J1+POS(STR(V0$(),J1)=83)
: IF J1(21)>0AND V0$(J2(19))<>HEX(8F)THEN 6510
: IF C3<123AND C3>7AND C4$<>"E"AND J7(1)<>1THEN 6490
: IF C3<8AND J1=J9THEN 6500
: IF C3>7AND J1=J9+1THEN 6500
: J1,J0(4)=J9
: GOTO 6210
6490 C4=C3+1
: J1=0
: GOTO 6650
6500 GOSUB 2117
: J1=0
: D2$=D1$(J0)
: IF D2$=" "THEN D2$=HEX(00)
: GOTO 6120
6510 J0(4)=J1
: GOSUB '93
6520 I(1)=0
: GOTO 6050
6530 D1$=HEX(84)
: GOTO 6160
6540 D1$=HEX(8F)
: GOTO 6160
6550 D1$=HEX(81)
: GOTO 6160
6560 D1$=HEX(85)
: GOTO 6160
6570 D1$=HEX(7F)
: GOTO 6160
6580 D1$=HEX(FF)
: GOTO 6160
6590 D1$=HEX(8C)
: GOTO 6160
6600 D1$=HEX(8B)
: GOTO 6160
6610 D1$=STR(A1$,3)
: GOTO 6130
6620 D1$=STR(A1$,2)
: GOTO 6130
6630 D1$=HEX(82)
: GOTO 6160
6640 ON J7(1)GOSUB ,2111,2112,2113,,,2114,2114
: GOTO 6120
6650 CONVERT C4-7TO C6$,(###)
: GOSUB 2103
: J7(2)=1
6660 V1$()="609FpageREC.page"
: LOAD T<2>V1$()BEG 100
6670 PRINT HEX(05);
: GOSUB 2109
: PRINT HEX(06);
: KEYIN D1$,,6710
: PRINT HEX(06)
: IF D1$<>" "THEN 6680
: D1$=A1$XOR C7$
: PRINT AT(0,63,17);B5$(1);AT(C1,C7);
: GOTO 6160
6680 IF D1$=HEX(FF)THEN 6700
: IF D1$=HEX(2D)THEN 6700
: GOSUB 2119
: GOTO 6670
6690 PRINT AT(C1,C7,0);
6700 ON J7(1)GOSUB ,2111,2112,2113,,,2114,2114
: GOTO 6120
6710 ON POS(HEX(50F0011106160515)=D1$)/2+.5GOTO 6720,6700,6700,6700
: GOSUB 2119
: GOTO 6670
6720 PRINT AT(0,63,17);B5$(1)
: GOTO 6120
6730 DEFFN'63
: IF V0$(1)=HEX(8F)THEN 6760
: 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 6770
6740 STR(V0$(),FNJ(1)+1)=STR(V0$(),FNJ(1)+POS(STR(V0$(),FNJ(1)+1)<>20))
: GOTO 6770
6750 V0$(POS(STR(V0$(),3)<>80)+1)=HEX(83)
6760 A=POS(V0$()=83)
: IF A=0THEN 6750
: IF A>158THEN STR(V0$(),79)=STR(V0$(),A-1)
6770 IF FNJ(1)=LEN(V0$())THEN 6780
: IF FNJ(1)>0THEN 6740
: STR(V0$(),J8-1)=" "
6780 J=POS(STR(V0$(),2)=8F)
: IF J>0THEN STR(V0$(),J+1)=" "
: IF C4$<>"E"THEN V0$(LEN(V0$())+1)=HEX(8F)
: RETURN
6790 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
6800 DEFFN'122(C)
: F=C
: MAT REDIM D6$(D9)2
: D6$()=ALL(00)
: IF F=0THEN 6810
: MAT SEARCHSTR(D1$(),,F),<>" "TO D6$()
: F=VAL(D6$(F),2)
: IF F<>0THEN 6810
: F=INT((POS(-D6$()>00)+1)/2)
6810 IF J9=J2(C1)+F-1AND D1$(J0)=" "THEN F=F+1
: J3=F
: RETURN
6820 DEFFN'40
: KEYIN D3$,6820,6820
: RETURN
6830 J7(2)=1
: LOAD T"609Egotp"
6840 ON J7(1)GOSUB ,6700,,,,,6700,6700
: GOSUB '33(J0(1))
: J2$()=A5$()
: J2$(1)=HEX(86)
: GOSUB '33(J2(C1))
: GOSUB 2102
: GOTO 6120
6850 DEFFN'35(C8)
: C1=1
6860 IF C8<J2(C1)THEN 6890
: IF J1(C1+1)=0THEN 6870
: IF J2(C1+1)>C8THEN 6900
: C1=C1+1
: GOTO 6860
6870 IF C8<J2(C1)+J1(C1)THEN 6900
: IF C1<C2THEN 6890
: IF V0$(J2(C1))=HEX(8F)THEN 6880
: J4=J1(C1)+1
: GOTO 6910
6880 J4=J1(C1)
: GOTO 6920
6890 C1=C1+1
: J4=1
: GOTO 6920
6900 J4=C8-J2(C1)+1
6910 IF C8<FNJ(1)OR J1(C1)=0THEN 6920
: IF POS(-STR(V0$(),,C8)=86)=0THEN IF J4>D9THEN 6890
: IF POS(-STR(V0$(),,C8)=86)>0THEN IF POS(STR(V0$(),POS(-STR(V0$(),,C8)=86)
)=83)<J4THEN 6890
6920 IF C1=1THEN 6890
: RETURN
6930 DEFFN'45
: I7$=ALL(D1$)
: I7$=XOR HEX(00800000)
: IF D1$>="a"AND D1$<="z"THEN I7$=XOR HEX(000020A0)
: IF D1$>="\E1"AND D1$<="\80"THEN I7$=XOR HEX(000020A0)
: I4=0
: FOR P=1TO POS(-I7$<>D1$)
: L=POS(STR(V0$(),J0(4)+1)=STR(I7$,P))
: IF I4=0THEN I4=L
: ELSE IF L>0THEN I4=MIN(I4,L)
: NEXT P
: RETURN
6940 IF V0$(J2(C1))=HEX(8F)AND J2(C1)>1THEN 6110
: IF C1=22THEN 6970
: IF J1(C1+1)>0THEN 7010
: IF J2(C1+1)>0AND C1<C2THEN 6990
: J0=LEN(D1$())+1
: IF D1$()=" "THEN J0=J5(C1)+1
6950 GOSUB '122(J0)
: J4=J3
: IF J2(C1)+J3-1<J0(3)THEN 7050
: IF J2(C1)+J3-1=J9AND D1$(J0)=" "AND D7=0THEN J3,J4=J3+1
6960 J0(4)=J2(C1)+J3-1
: GOSUB '48(D5)
: GOTO 7150
6970 GOSUB '96(J2(C1),C1)
6980 J0=LEN(D1$())
: GOTO 6950
6990 IF D9>=FNP(1)AND V0$(J2(C1))=D2$(1)THEN PRINT HEX(06);AT(C1,J0-1);B5$(2);
STR(D1$(),FNP(1)+J0-1,MIN(D9-FNP(1)+1,80)-J0+1);HEX(0F);
: ELSE IF D9>=FNP(1)THEN GOSUB '98(2,2)
: GOSUB '96(J2(C1+1),C1+1)
7000 J0,J3,J4=1
: IF D1$=HEX(17)AND J5(C1)>0THEN J0=J5(C1)+1
: GOSUB '48(D5)
: GOTO 7150
7010 IF D9<FNP(1)THEN 7020
: IF V0$(J2(C1))<>HEX(86)THEN GOSUB '98(2,1)
: ELSE GOSUB '98(2,2)
7020 C1=C1+1
: IF V0$(J2(C1))=HEX(86)THEN 7030
: GOSUB '33(J2(C1))
: M=J0
: GOSUB '96(J2(C1),C1)
: IF V0$(J2(C1))=HEX(8F)THEN 7000
: J0=MIN(M,D9)
: IF J0>LEN(D1$())AND J1(C1+1)=0AND C1=C2THEN J0=LEN(D1$())
: GOTO 6950
7030 IF C1<22THEN 6940
: C1=C1-1
: GOTO 6970
7040 IF C1=2THEN 7050
: IF C1=3AND V0$(J2(2))=HEX(86)THEN 7050
: IF J2(C1)<=J0(3)THEN 7050
: IF D9>=FNP(1)THEN GOSUB '98(1,1)
: C1=C1-1
: IF V0$(J2(C1))=HEX(86)AND D9>=FNP(1)THEN GOSUB '98(1,2)
: 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 6950
7050 J3,J4=MAX(1,J0(3)-J2(C1)+1)
7060 GOSUB '22(J3)
: J0=F+1
: GOTO 6960
7070 IF J0<=J5(C1)THEN 7080
: IF V0$(J2(C1))=HEX(8F)THEN 6110
: IF J9<=J2(C1)+J3-1THEN 6110
: IF J0=D9THEN 7090
: IF J3>=J1(C1)AND C1=22THEN 6980
: IF J3>=J1(C1)AND C1=21AND V0$(22)=HEX(86)THEN 6980
7080 J0=J0+1
: GOTO 6950
7090 IF C1=21AND V0$(J2(22))=HEX(86)THEN 6110
: J0=1
: GOTO 6940
7100 IF D1$=HEX(08)THEN IF C1=3AND V0$(J2(2))=HEX(86)OR C1=2THEN IF J3=1AND D2
$<>" "AND D2$<>HEX(00)OR J3=0THEN 6110
: IF D1$<>HEX(08)THEN IF C1=3AND V0$(J2(2))=HEX(86)OR C1=2THEN IF J0=1THEN
6110
: IF D1$=HEX(08)THEN D7=1
: ELSE D7=2
: IF D2$<>" "AND J0(3)=J2(C1)+J3-1THEN 7150
: IF D1$=HEX(08)THEN 7110
: IF J0=1THEN 7120
: J0=J0-1
: GOTO 6950
7110 IF J3<2AND D1$(J0)<>" "THEN 7120
: IF J0=1AND D2$()=" "THEN 7120
: IF J3=0THEN 7120
: IF D1$(J0)<>" "OR J3>LEN(D2$())THEN J3,J4=J3-1
: GOTO 7060
7120 IF D2$<>" "AND J0(3)=J2(C1)+J3-1THEN 7150
: IF D9>=FNP(1)THEN GOSUB '98(1,1)
: I3=C1
: C1=C1-1
: IF V0$(J2(C1))=HEX(86)AND D9>=FNP(1)THEN GOSUB '98(1,2)
: IF V0$(J2(C1))=HEX(86)THEN C1=C1-1
: I2=C1
: GOSUB '33(J2(C1))
: GOSUB '96(J2(C1),C1)
: IF D7=1THEN J3,J4=J1(C1)
: ELSE J0=D9
: ON D7GOTO 7140,7130
7130 J0=D9
: J1,J0(4)=J2(C1)+J1(C1)-1
: I2=1
: I3=C2
: I5=J1(C1)*1000+J0
: I6=C1
: GOTO 6230
7140 J1,J0(4)=J2(C1)+J1(C1)-1
: I5=0
: I6=C1
: GOTO 6230
7150 J0(4)=J2(C1)+J3-1
: GOSUB '61
: GOTO 6110
7160 GOSUB '61
: ON J7(1)GOSUB ,2104,2105,2106,,,2107,2107,2105,2106
: GOTO 6110
7170 IF J7(1)<>9AND J7(2)<>10THEN 7190
: J7(2)=13
: LOAD T"609Escm1"
7180 LOAD T"609Escm4"
7190 J1=J0(1)
: IF C3<>J0(2)THEN 7200
: GOSUB '35(J1)
: IF C1=2AND J1<J2(C1)THEN C1=1
: MAT J0=ZER
: J7(1)=0
: J7(3)=3
: GOTO 6330
7200 C4=J0(2)
: MAT J0=ZER
: MAT J7=ZER
: GOTO 6660
8000 DEFFN'95(J2,J1,I(1),J5)
8010 IF J1>0THEN 8030
: IF J2=0THEN ON SGN(I(1))+1GOTO 8050,8060
: IF J4(C2)<ABS(J2)AND C2>21THEN 8040
: C=1
8020 C=C+1
: IF J4(C)<ABS(J2)THEN 8020
: IF J2<0THEN J1=J2(C)
: ELSE J1=J2(C)+J1(C)-1
8030 J2=0
: IF J1=0AND I(1)=0THEN 8050
: 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 8060
: IF J1=J9+1AND J2(C2)+J1(C2)-1=J1THEN 8060
: IF C2=22AND J1(22)=0THEN 8060
8040 GOSUB '93
: I(1)=0
8050 GOSUB '91(1,J2(1),I(1),0)
: I(1)=1
: GOTO 8010
8060 IF J1=J2(2)AND J3(1)>0AND J1=J9+1AND D2>1THEN 8070
: IF J1>=J2(2)OR D2=1THEN 8080
8070 GOSUB '94(D2-1)
: I(1)=0
: IF J1<I+80AND D2>1THEN 8070
: GOTO 8050
8080 GOSUB '35(J1)
: IF I(1)<>0THEN 8090
: C1=C1-1
: GOSUB '91(C1,J2(C1),0,0)
: I(1)=1
: GOTO 8080
8090 GOSUB '96(J2(C1),C1)
: J3=J4
: IF J5=0THEN GOSUB '22(J4)
: ELSE F=J5-1
: J0=F+1
: GOSUB '48(D5)
: 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 8030
9900 DEFFN'5
: C8$(01)=HEX(030008000B0018001B51000000000000)
: C8$(02)=HEX(00000000000000000000000000000000)
: C8$(03)=HEX(0800710187231720D050000000000000)
: C8$(04)=HEX(00000000000000000000000000000000)
: C8$(05)=HEX(07201C37D0D007081C37D0C007FF1C37)
9906 C8$(06)=HEX(D0B00000000000000000000000000000)
: C8$(07)=HEX(070D1C37D09007821C37D09007A11C37)
: C8$(08)=HEX(D09007E51C37D09007841C37D0900000)
: C8$(09)=HEX(07801C75D0D807A01C75D0D818011B31)
: C8$(10)=HEX(18001B321920710542301EC2E094E000)
9911 C8$(11)=HEX(074D1C67D0C0075D1C67D0C0074C1C67)
: C8$(12)=HEX(D0E0075C1C67D0E00000000000000000)
: C8$(13)=HEX(07F01C67D09207501C67D09200000000)
: C8$(14)=HEX(00000000000000000000000000000000)
: C8$(15)=HEX(07051C67D0A007151C67D0A207061C67)
9916 C8$(16)=HEX(D0A407161C67D0A40000000000000000)
: C8$(17)=HEX(07071C67D0A607171C67D0A6070D1C67)
: C8$(18)=HEX(D0A8071D1C67D0AA0000000000000000)
: C8$(19)=HEX(0B011C000B021C000B031C000B051C00)
: C8$(20)=HEX(87230B061C0000000000000000000000)
9921 C8$(21)=HEX(037FE04003FFE040038CE040038BE040)
: C8$(22)=HEX(035FE040035EE04003DFE04003DEE040)
: C8$(23)=HEX(070887231C37E0990000E0C000000000)
: C8$(24)=HEX(00000000000000000000000000000000)
: C8$(25)=HEX(01011C12D0961923710540087101E000)
9926 C8$(26)=HEX(00000000000000000000000000000000)
: C8$(27)=HEX(07201C75E0D80000E040000000000000)
: C8$(28)=HEX(0B041C00000000000000000000000000)
: C8$(29)=HEX(07201C75D01019C31EC2E09419C01920)
: C8$(30)=HEX(71054009E00000000000000000000000)
9931 C8$(31)=HEX(00000000000000000000000000000000)
: C8$(32)=HEX(00000000000000000000000000000000)
: FOR I=1TO 256
: C7$(I)=BIN(I-1)
: NEXT I
: STR(C7$(),257,128)=C7$()
: C7$(VAL(HEX(20))+1)=HEX(80)
: C7$(VAL(HEX(A0))+129)=HEX(80)
: C7$(VAL(HEX(8B))+129)=HEX(8B)
: C7$(VAL(HEX(8C))+129)=HEX(8C)
: RETURN