Listing of file='609EHILT' on disk='vmedia/701-2736G.wvd.zip'
# Sector 364, program filename = '609EHILT' 0010 REM ********************* 609EHILT ************************************ 0011 COM J2$(158)1 0013 DEFFNP(I)=1+D5*(D8-80) : DIM I0$(158)1,I7$4,I(2) 0018 DEFFNJ(I)=POS(V0$()=" ")-1 : J0(5)=C3 : GOSUB '47 : IF J0(2)>0THEN 35 : J0(2),J0(5)=C3 : J0(1),J0(3),J0(4),J1=J2(C1)+J3-1 : I2,I3=C1 : GOTO 1391 0035 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 42,62,73,42,221,102,152 : D1=1 : GOSUB '63 0042 IF D9=0THEN D9=80 : GOSUB '40 : J7=0 : D2=1 : PRINT HEX(03) : I(1)=0 0062 GOSUB '94(D2) 0072 C1=1 0073 J9=FNJ(1) : GOSUB '91(C1,J2(C1),I(1),0) : D0=J5(1) : IF J2<>0THEN J1=0 : GOSUB '92(J2,J1,0,0) : IF J0(4)=J2(C1)+J3-1THEN 89 : J1,J0(4)=J2(C1)+J3-1 : I(1)=0 : GOTO 72 0089 ON J7(1)GOSUB ,2071,2073,2074,,,2077,2077,2073,2074 : C9=0 : J3=J4 : GOTO 122 0100 REM %Print Autoscore mode message 0102 IF C7$<>HEX(00)THEN GOSUB 2005 : IF D1$(1)<>HEX(86)THEN 119 : J1=J2(C1+1) : GOSUB '93 : GOTO 72 0119 ON J7(1)GOSUB ,2071,2073,2074,,,2077,2077,2073,2074 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 : D2$=D1$(J0) : IF J2(C1)+J3>J9AND POS(-D1$()<>" ")<J0THEN D2$=HEX(00) : PRINT HEX(06);AT(23,48,32); 0151 GOSUB 2425 0152 KEYIN D1$,,402 : $TRAN(D1$,HEX(828482E582A12081))R : ON POS(HEX(82FF08)=D1$)GOTO 304,250,1312 0164 D1$=D1$XOR C7$ : $TRAN(D1$,HEX(8020830D838D))R 0172 IF D2$<>" "AND D2$<>HEX(8F)THEN 182 0176 GOSUB 2330 : GOTO 152 0182 IF D2$<>HEX(00)THEN 206 : D1$=HEX(08) : GOTO 134 0205 J1=POS(STR(V0$(),J2(C1)+J3)=D1$) 0206 GOSUB '45 : J1=I4 : IF J1>0THEN 284 0214 GOSUB 2195 : GOTO 152 0219 J1,J0(4)=J0(4)+J1 0221 I2=C1 : GOSUB '35(J1) : I3=MAX(C1,I2) : I2=MIN(C1,I2) 0230 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 0234 GOSUB '91(I2,J2(I2),1,I3) : GOSUB '92(0,J1,1,MOD(I5,1000)) : ON J7(1)GOSUB ,2071,2073,2074,,,2077,2077,2073,2074 : IF I5=0THEN 122 : IF I6<>C1THEN 245 : J0=MOD(I5,1000) : GOTO 130 0245 C1=C1+1 : GOSUB '96(J2(C1),C1) : J3,J4=0 : J0=MOD(I5,1000) : GOTO 130 0250 KEYIN D1$ : ON POS(HEX(A008)=D1$)GOTO 268,1312 : PRINT D1$;HEX(08); : GOSUB 2320 : GOTO 152 0268 D1$=HEX(A0) : GOTO 172 0284 I=J0(4) 0288 IF POS(-STR(V0$(),,J0(4)+I4)=86)=0THEN 219 : IF POS(STR(V0$(),POS(-STR(V0$(),,J0(4)+I4)=86),J0(4)+I4-POS(-STR(V0$(),,J 0(4)+I4)=86))=83)>0THEN 219 : J0(4)=J0(4)+I4 : GOSUB '45 : J1=I4 : IF I4>0THEN 288 : J0(4)=I : GOTO 214 0304 IF J7(1)<>2THEN 322 : COM CLEAR J2$() : GOSUB 2175 : V1$()="609Edel 609Eloct" : LOAD T<2>V1$() 0322 IF J7(1)<>3AND J7(1)<>4AND J7(1)<>7AND J7(1)<>8THEN 330 : V1$()="609Ecm1 609Eloct" : GOSUB 2175 : LOAD T<2>V1$() 0330 V1$()="609Escm3REC.page" : GOSUB 2175 : J7(2)=12 : LOAD T"609Escm1" 0332 LOAD T<2>V1$() 0342 GOSUB 2085 0344 COM CLEAR J2$() : LOAD DA T(D7$(1)) 0381 DEFFN'98(X,Y) : ON YGOTO 386,391 0386 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 0391 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 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 : I2=C1 : ON VAL(D1$)-21GOTO 1214,1104,1263,1312,642,1263,502,514,,541,1404,426,642 : 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)<>0AND POS(HEX(08090A0B11121314)=D1$)>0THEN 598 : IF POS(HEX(08090A0B121314)=D1$)=0THEN 454 : J1=J2(C1)+J3-1 : IF J1>J9AND POS(HEX(1314)=D1$)=0THEN 176 0454 ON VAL(D1$)+1GOTO 426,534,426,426,812,426,426,426,642,642,642,642,626,426 ,,805,426,642,642,642,642,426 : GOTO 430 0502 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 507 : IF D2=1AND C3>J0(2)THEN 510 : IF D2=1THEN 506 : GOSUB '94(D2-1) : J0(4)=J1 : GOTO 528 0506 IF C3>J0(2)THEN 510 : J1=0 : IF J2(C1)+J3-1=J0(3)THEN 508 0507 J1,J0(4)=J0(3) : I3=C1 : GOSUB '35(J1) : I2=C1 : GOTO 230 0508 GOSUB 2340 : GOTO 152 0510 C4=C3-1 : J1=9E99 : GOTO 611 0514 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 598 : IF V0$(J1)=HEX(86)THEN J1=J1+POS(STR(V0$(),J1)=83) : 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,J0(4)=J9 : GOTO 221 0522 C4=C3+1 : J1=0 : GOTO 611 0524 GOSUB 2335 : J1=0 : D2$=D1$(J0) : IF D2$=" "THEN D2$=HEX(00) : GOTO 152 0526 J0(4)=J1 : GOSUB '93 0528 I(1)=0 : GOTO 72 0532 D1$=HEX(84) : GOTO 182 0534 D1$=HEX(8F) : GOTO 182 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 0584 D1$=STR(A1$,3) : GOTO 164 0588 D1$=STR(A1$,2) : GOTO 164 0592 D1$=HEX(82) : GOTO 182 0598 ON J7(1)GOSUB ,2281,2283,2284,,,2287,2287 : GOTO 152 0611 CONVERT C4-7TO C6$,(###) : IF J7(1)=9OR J7(1)=10THEN IF J8=4182AND D7$<>" "AND C4=C3+1THEN 662 0616 GOSUB 2055 : J7(2)=1 0620 V1$()="609FpageREC.page" : LOAD T<2>V1$()BEG 100 0626 PRINT HEX(05); : GOSUB 2170 : PRINT HEX(06); : 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 642 : IF D1$=HEX(2D)THEN 642 : GOSUB 2360 : GOTO 626 0641 PRINT AT(C1,C7,0); 0642 ON J7(1)GOSUB ,2281,2283,2284,,,2287,2287 : GOTO 152 0648 ON POS(HEX(50F0011106160515)=D1$)/2+.5GOTO 652,642,642,642 : GOSUB 2360 : GOTO 626 0652 PRINT AT(0,63,17);B5$(1) : GOTO 152 0662 L=V0 : IF C4<A0(3)THEN L=VAL(J1$(C4+1),2) : L=L-VAL(J1$(C4),2) : IF L<17THEN 616 : IF L=17THEN 682 : GOSUB 2015 : PRINT AT(23,23,); : J1=0 : D2$=D1$(J0) : IF D2$=" "THEN D2$=HEX(00) : GOTO 151 0682 J7(2)=1 : V1$()="609ESIZERECMGR" : LOAD T<2>V1$() 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 0805 J7(2)=1 : LOAD T"609Egotp" 0812 ON J7(1)GOSUB ,642,,,,,642,642 : GOSUB '33(J0(1)) : J2$()=A5$() : J2$(1)=HEX(86) : GOSUB '33(J2(C1)) : GOSUB 2045 : GOTO 152 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 DEFFN'45 : I7$=ALL(D1$) : IF D1$<>HEX(A0)AND D1$<>HEX(80)THEN 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 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 : IF D1$()=" "THEN J0=J5(C1)+1 1126 GOSUB '122(J0) : J4=J3 : IF J2(C1)+J3-1<J0(3)THEN 1248 : IF J2(C1)+J3-1=J9AND D1$(J0)=" "AND D7=0THEN J3,J4=J3+1 1134 J0(4)=J2(C1)+J3-1 : GOSUB '48(D5) : GOTO 1387 1142 GOSUB '96(J2(C1),C1) 1146 J0=LEN(D1$()) : GOTO 1126 1154 IF D9>=FNP(1)AND V0$(J2(C1))=D2$(1)THEN PRINT HEX(06);AT(C1,J0-1-FNP(1)+1 );B5$(2);STR(D1$(),J0,MIN(D9+1,80+FNP(1))-J0);HEX(0F); : ELSE IF D9>=FNP(1)THEN GOSUB '98(2,2) : 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 1387 1166 IF D9<FNP(1)THEN 1167 : IF V0$(J2(C1))<>HEX(86)THEN GOSUB '98(2,1) : ELSE GOSUB '98(2,2) 1167 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$())AND J1(C1+1)=0AND C1=C2THEN J0=LEN(D1$()) : 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 : IF J2(C1)<=J0(3)THEN 1248 : 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 1126 1248 J3,J4=MAX(1,J0(3)-J2(C1)+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-1THEN 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 1290 J0=J0+1 : GOTO 1126 1298 IF C1=21AND V0$(J2(22))=HEX(86)THEN 134 : J0=1 : GOTO 1104 1312 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 134 : IF D1$<>HEX(08)THEN IF C1=3AND V0$(J2(2))=HEX(86)OR C1=2THEN IF J0=1THEN 134 : IF D1$=HEX(08)THEN D7=1 : ELSE D7=2 : IF D2$<>" "AND J0(3)=J2(C1)+J3-1THEN 1387 : IF D1$=HEX(08)THEN 1338 : IF J0=1THEN 1352 : J0=J0-1 : GOTO 1126 1338 IF J3<2AND D1$(J0)<>" "THEN 1352 : IF J0=1AND D2$()=" "THEN 1352 : IF J3=0THEN 1352 : IF D1$(J0)<>" "OR J3>LEN(D2$())THEN J3,J4=J3-1 : GOTO 1252 1352 IF D2$<>" "AND J0(3)=J2(C1)+J3-1THEN 1387 : 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 1385,1380 1380 J0=D9 : J1,J0(4)=J2(C1)+J1(C1)-1 : I2=1 : I3=C2 : I5=J1(C1)*1000+J0 : I6=C1 : GOTO 234 1385 J1,J0(4)=J2(C1)+J1(C1)-1 : I5=0 : I6=C1 : GOTO 234 1387 J0(4)=J2(C1)+J3-1 : GOSUB '61 : GOTO 134 1391 GOSUB '61 : ON J7(1)GOSUB ,2071,2073,2074,,,2077,2077,2073,2074 : GOTO 134 1404 IF J7(1)<>9AND J7(2)<>10THEN 1432 : J7(2)=13 : LOAD T"609Escm1" 1406 LOAD T"609Escm4" 1432 J1=J0(1) : IF C3<>J0(2)THEN 1456 : GOSUB '35(J1) : IF C1=2AND J1<J2(C1)THEN C1=1 : MAT J0=ZER : J7(1)=0 : J7(3)=3 : GOTO 344 1456 C4=J0(2) : MAT J0=ZER : MAT J7=ZER : GOTO 620 2005 C3$="(Autoscore Mode)" : GOTO 2440 2015 PRINT HEX(06);AT(23,23,);B5$(2);"Extended page cannot be processed. Plea se Cancel.";HEX(020400000E); 2020 PRINT HEX(07); : KEYIN C3$ : IF C3$<>HEX(50)AND C3$<>HEX(F0)THEN 2020 : RETURN 2025 C3$="(Document End)" : GOTO 2450 2035 C3$="Exiting" : GOTO 2435 2045 C3$="Format Copied" : GOTO 2410 2055 C3$="Going to Page " : GOTO 2435 2071 C3$="Delete What?" : GOTO 2445 2073 C3$="Copy What?" : GOTO 2445 2074 C3$="Move What?" : GOTO 2445 2077 C3$="Replace What?" : GOTO 2445 2085 C3$="Loading Editor" : GOTO 2445 2135 C3$="(Page End)" : GOTO 2450 2170 C3$="Which Command?" : GOTO 2445 2175 C3$="Rearranging" : GOTO 2445 2195 C3$="Cannot find one" : GOTO 2410 2281 C3$="First finish Delete" : GOTO 2410 2283 C3$="First finish Copy" : GOTO 2410 2284 C3$="First finish Move" : GOTO 2410 2287 C3$="First finish Replace" : 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 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 ### 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$