image of READY prompt

Wang2200.org

Listing of file='KERMGAME' on disk='vmedia/games_vol_3.wvd.zip'

# Sector 102, program filename = 'KERMGAME'
0000 REM % KERMIT (!*!- PROGRAM OF FROGGA -!*!)BY SCOTT DARROW
0010 DEFFN'31"W9$=";HEX(22);"KERMGAME";HEX(22);":SCRATCH TW9$:SAVE T()W9$";HEX
     (0D)
0020 %LOAD T"KERMSTUM"45,70 BEG100
1000 DIM Z$80,Y$80,W$80,X$80,V$80,V1$80,V2$80,T$80,U$80,R$80,R1$80,R2$80,R4$80
     ,V4$80,A$(22)80,S$80,S1$80,F(4),F,K$1,H$39,H$(10)39,T2$2
1010 S0,P,P0,P1,P2,P3,P4,P5,P6,P7,P8,F,I3,J1=0
   : K5=3
   : R=10
   : M,J=1
   : MAT F=ZER
   : PRINT HEX(03060202020F020402000F);
   : RETURN  CLEAR  ALL
1015 DIM W4$80
   : PRINT HEX(0208090F0306)
   : C9=0
1016 KEYIN STR(W4$,1,1),1017,1017
   : C9=C9+1
   : IF C9<100 THEN 1016
   : STOP "*** SORRY KERMIT CAN NOT BE PLAYED AT THIS TERMINAL"
   : GOTO 1015
1017 FOR K=2 TO 80
   : KEYIN STR(W4$,K,1)
   : IF STR(W4$,K,1)=HEX(0D) THEN K=81
   : NEXT K
1020 LIMITS T"KERMIT",X,X,X,S9
   : IF S9=1 THEN 1030
1022 PRINT HEX(03020404040E);AT(0,37);"KERMIT";HEX(020402000F)
1024 PRINT AT(3,0);"WHAT DISK IS KERMIT ON ?????";
   : LINPUT ?D9$
   : IF VER(D9$,"HHH")<3 THEN 1024
   : SELECT  DISK <D9$>
   : PRINT HEX(0306)
   : GOTO 1020
1030 LIMITS T"KERM-H.S",X,X,X,T5
   : IF T5=2THEN 1060
   : DATA SAVE DC OPEN T(4)"KERM-H.S"
1040 FOR K=1TO 10
   : H$(K)=ALL(20)
   : STR(H$(K),38,2)=HEX(04A0)
   : NEXT K
1050 DATA LOAD DC OPEN T"KERM-H.S"
   : DATA SAVE DC H$()
   : DATA SAVE DC END
   : DATA SAVE DC CLOSE
1060 DATA LOAD DC OPEN T"KERM-H.S"
   : DATA LOAD DC H$()
   : DATA SAVE DC CLOSE
1080 F1=0
   : FOR K=1TO 10
   : T2$=HEX(0000)
   : FOR J9=1TO 37
   : T2$=ADDCSTR(H$(K),J9,1)
   : NEXT J9
   : IF T2$<>STR(H$(K),38,2)THEN F1=1
   : P9=POS(-STR(H$(K),8,30)>" ")-1
   : IF P9>0THEN $TRAN(STR(H$(K),P9+7,31-P9),". ")R
   : NEXT K
   : IF F1=1THEN 1040
2000 Y$="\CC\F3\CC\CC\F3\EE                           \CC\F3\CC\CC\F3\EE
                    \CC\E6\F3\CC\CC\CC\F3\F3\E6"
2010 S1$="
       \CC\EE\D9\D9\D9\D5 "
2020 S$="\EA\E6\E6\E6\D9\CC
                "
2030 T$="\F7\F7\F7\F7\F7\F7\D5           \F7\F7\F7\F7\F7\F7\F7\F7\F7\D5
          \F7\F7\F7\F7\D5             \F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\
     F7\D5    "
2040 U$="\F7\F7\F7\F7\F7\F7\D5          \F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\F7\F
     7\F7\F7\D5           \F7\F7\F7\F7\F7\F7\F7\D5            \F7\F7\F7\F7\F7\
     F7\F7\F7\D5   "
2050 W$="     \F7\CC\F3\F3\CC\CC\F3\F3\CC                   \F7\CC\F3\F3\CC\CC
     \CC\F3\F3\CC                  \F7\CC\F3\F3\CC\CC\F3\F3\CC"
2060 Z$="     \F7\CC\F3\F3\CC\CC\F3\F3\CC                    \F7\CC\F3\F3\CC\C
     C\CC\F3\F3\CC                \F7\CC\F3\F3\CC\CC\F3\F3\CC"
2070 X$="\CC\F3\CC\CC\F3\EE                       \CC\F3\CC\CC\F3\EE
                    \CC\E6\F3\CC\CC\CC\F3\F3\E6"
2080 V$="\E6\CC\D9 \E6\CC\D9 \E6\CC\D9          \E6\CC\D9 \E6\CC\D9 \E6\CC\D9
             \E6\CC\D9 \E6\CC\D9 \E6\CC\D9        \E6\CC\D9 \E6\CC\D9 \E6\CC\D
     9"
2090 V1$="\E6\CC\D9     \E6\CC\D9          \E6\CC\D9     \E6\CC\D9         \E6
     \CC\D9     \E6\CC\D9        \E6\CC\D9     \E6\CC\D9"
2100 V2$="    \E6\CC\D9                  \E6\CC\D9                 \E6\CC\D9
                   \E6\CC\D9    "
2110 R$="\E6\CC\D9 \E6\CC\D9 \E6\CC\D9               \E6\CC\D9 \E6\CC\D9 \E6\C
     C\D9              \E6\CC\D9 \E6\CC\D9 \E6\CC\D9        "
2120 R1$="\E6\CC\D9     \E6\CC\D9               \E6\CC\D9     \E6\CC\D9
            \E6\CC\D9     \E6\CC\D9        "
2130 R2$="    \E6\CC\D9                       \E6\CC\D9                      \
     E6\CC\D9            "
2140 G,G1,D,D1,L,L1,L2,N,G6=0
   : V3=INT(RND(1)*60+5)
   : G5,V,V1=22
   : H,H1=V3
   : R4$=R$
   : V4$=V$
   : IF K5=0THEN 3610
   : K$=" "
   : RETURN  CLEAR  ALL
   : FOR X=1 TO 1
   : NEXT X
2150 A$=HEX(E9D60A0808C5CA)
   : B$=HEX(D9E6)
2160 RESTORE LINE 2190
   : MAT READ A$
2170 PRINT HEX(03060202020F);HEX(0E);
   : PRINT AT(0,0);"YOUR SCORE =";
   : PRINTUSING "######",S0
   : PRINT HEX(0E);AT(0,60);"KERMIT Level :";J;
   : FOR K=1 TO MIN(10,K5)
   : PRINT HEX(0E);AT(0,(32-MIN(10,K5)+K*4));HEX(D9E6);
   : NEXT K
   : PRINT AT(2,0);
   : PRINT HEX(0F)
2180 FOR K=1TO 22
   : $ GIO/005(A000)STR(A$(K),1)
   : IF K<22 THEN PRINT
   : NEXT K
2190 DATA "\E8\CC\CC\CC\CC\CC\CC\CC\EC\CC\CC\CC\CC\CC\EC\CC\CC\CC\CC\CC\CC\CC\
     CC\CC\CC\CC\CC\EC\CC\CC\CC\CC\CC\EC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\EC\C
     C\CC\CC\CC\CC\EC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\EC\CC\CC\CC\CC\CC\EC\CC
     \CC\CC\CC\CC\CC\CC\D4"
2200 DATA "\EA\CC\CC\CC\CC\CC\CC\CC\CE     \CA\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\C
     C\CC\CE     \CA\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CE     \CA\CC\CC\CC\CC\C
     C\CC\CC\CC\CC\CC\CC\CE     \CA\CC\CC\CC\CC\CC\CC\CC\D5"
2210 DATA "\EA
                 \D5"
2220 DATA "\EA
                 \D5"
2230 DATA "\EA
                 \D5"
2240 DATA "\EA
                 \D5"
2250 DATA "\EA
                 \D5"
2260 DATA "\EA
                 \D5"
2270 DATA "\EA
                 \D5"
2280 DATA "\EA\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\
     CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\C
     C\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC
     \CC\CC\CC\CC\CC\CC\D5"
2290 DATA "\EA
                 \D5"
2300 DATA "\EA\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\
     CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\C
     C\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC
     \CC\CC\CC\CC\CC\CC\D5"
2310 DATA "\EA
                 \D5"
2320 DATA "\EA     -----     -----     -----     -----     -----     -----
      -----      \D5"
2330 DATA "\EA
                 \D5"
2340 DATA "\EA  ==========  ==========  ==========  ==========  ==========  ==
     =========   \D5"
2350 DATA "\EA
                 \D5"
2360 DATA "\EA     -----     -----     -----     -----     -----     -----
      -----      \D5"
2370 DATA "\EA
                 \D5"
2380 DATA "\EA\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\
     CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\C
     C\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC
     \CC\CC\CC\CC\CC\CC\D5"
2390 DATA "\EA
                 \D5"
2400 DATA "\CA\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\
     CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\C
     C\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC\CC
     \CC\CC\CC\CC\CC\CC\C5"
2410 FOR X=1TO 20
   : K$=" "
   : KEYIN K$,2420,2420
2420 NEXT X
2430 IF F=0 THEN 2480
   : FOR X=1 TO F
   : IF F(X)<16 THEN 2440
   : IF F(X)<35 THEN 2450
   : IF F(X)<52 THEN 2460
   : IF F(X)<71 THEN 2470
   : GOTO 2480
2440 PRINT HEX(0E);AT(3,10);HEX(C791CB)
   : INIT(FF)STR(A$(2),10,5)
   : NEXT X
   : PRINT HEX(0F)
   : GOTO 2480
2450 PRINT HEX(0E);AT(3,29);HEX(C791CB)
   : INIT(FF)STR(A$(2),29,5)
   : NEXT X
   : PRINT HEX(0F)
   : GOTO 2480
2460 PRINT HEX(0E);AT(3,47);HEX(C791CB)
   : INIT(FF)STR(A$(2),47,5)
   : NEXT X
   : PRINT HEX(0F)
   : GOTO 2480
2470 PRINT HEX(0E);AT(3,65);HEX(C791CB)
   : INIT(FF)STR(A$(2),64,5)
   : NEXT X
   : PRINT HEX(0F)
   : GOTO 2480
2480 GOSUB 2490
   : RETURN  CLEAR  ALL
   : FOR X=1TO 1
   : NEXT X
   : GOSUB '10(V)
   : FOR X=1 TO 1
   : NEXT X
   : RETURN  CLEAR  ALL
   : GOSUB '25(V,H,V1,H1)
   : D,D1=0
   : GOSUB '20
   : RETURN  CLEAR  ALL
   : FOR X=1TO 1
   : NEXT X
   : GOTO 2480
2490 K$=" "
   : KEYIN K$,2510,2500
   : GOTO 2510
2500 $TRAN(K$,HEX(3846385632453255364C365C344D345D))R
2510 IF K$<>" " THEN 2520
   : RETURN
2520 IF K$<"1" THEN RETURN
   : IF K$>"9" THEN RETURN
   : CONVERT K$ TO K
   : ON K GOTO 2530,2540,2550,2560,2570,2580,2590,2600,2610
2530 PRINT HEX(07)
   : RETURN
2540 V1=V
   : H1=H
   : IF V=22 OR N=1 THEN RETURN
   : ELSE V=V+2
   : RETURN
2550 PRINT HEX(07)
   : RETURN
2560 V1=V
   : H1=H
   : IF V>11 THEN H=H-2
   : ELSE H=H-1
   : IF V=12 THEN GOSUB '10(V)
   : IF V=24 THEN GOSUB '10(V)
   : RETURN
2570 PRINT HEX(07)
   : RETURN
2580 V1=V
   : H1=H
   : IF V>11 THEN H=H+2
   : ELSE H=H+1
   : IF V=12 THEN GOSUB '10(V)
   : RETURN
2590 PRINT HEX(07)
   : RETURN
2600 V1=V
   : H1=H
   : V=V-2
   : IF V<6 THEN GOSUB '10(V)
   : RETURN
2610 PRINT HEX(07)
   : RETURN
2620 DEFFN'10(V)
   : ON V/2 GOTO 2630,2640,2670,2690,2720,2740,2760,2770,2780,2800,2810
   : IF STR(A$(2),H,2)=" " THEN 3540
   : ELSE B$=HEX(C0C9F3C6C0)
   : GOSUB '25(V,H,V1,H1)
2630 IF STR(A$(2),H+1,2)=" " THEN 3540
   : IF STR(A$(2),H,2)=HEX(FF) THEN 3540
   : V=3
   : B$=HEX(C0C9F3C6C0)
   : GOSUB '25(V,H,V1,H1)
2640 IF S=0 THEN H=H-J
   : IF H<2 THEN 2660
   : IF STR(R4$,H,2)=" "THEN 2660
   : IF P8<>0 THEN 2650
   : ELSE S0=S0+50
   : P8=1
   : B$=HEX(D9E6)
   : D1=INT(RND(1)*3+1)
   : IF G1<>0 THEN PRINT HEX(07)
   : RETURN
2650 B$=HEX(D9E6)
   : D1=INT(RND(1)*3+1)
   : IF G1<>0 THEN PRINT HEX(07)
   : RETURN
2660 B$=HEX(C0C9F3C6C0)
   : RETURN
2670 IF H>72 THEN 2660
   : IF S=0 THEN H=H+J
   : IF STR(U$,H,2)=" "THEN 2660
   : IF P7<>0 THEN 2680
   : ELSE S0=S0+50
   : P7=1
   : B$=HEX(D9E6)
   : RETURN
2680 B$=HEX(D9E6)
   : RETURN
2690 IF H<2 THEN 2660
   : IF S=1 THEN 2700
   : IF I3=0 THEN H=H-1
   : ELSE H=H-I3
2700 IF STR(T$,H,2)=" "THEN 2660
   : IF P6<>0 THEN 2710
   : ELSE S0=S0+50
   : P6=1
   : B$=HEX(D9E6)
   : RETURN
2710 B$=HEX(D9E6)
   : RETURN
2720 IF H>71 THEN 2660
   : IF S=0 THEN  H=H+J
   : IF STR(V4$,H,2)=" "THEN 2660
   : IF P5<>0 THEN 2730
   : ELSE S0=S0+50
   : P5=1
   : D=INT(RND(1)*3+1)
   : IF G<>0 THEN PRINT HEX(07)
   : RETURN
2730 B$= HEX(D9E6)
   : D=INT(RND(1)*3+1)
   : IF G<>0 THEN PRINT HEX(07)
   : RETURN
2740 IF STR(S1$,H-2,2)<>" " THEN 2660
   : IF STR(S$,H+2,2)<>" " THEN 2660
   : IF P4<>0 THEN 2750
   : ELSE S0=S0+50
   : P4=1
2750 RETURN
2760 IF STR(X$,H,2)<>" "THEN 2660
   : IF P3<>0 THEN RETURN
   : ELSE S0=S0+30
   : P3=1
   : RETURN
2770 IF STR(Y$,H,2)<>" "THEN 2660
   : IF P2<>0 THEN RETURN
   : ELSE S0=S0+30
   : P2=1
   : RETURN
2780 IF STR(Z$,H,2)<>" "THEN 2660
   : IF P1<>0 THEN RETURN
   : ELSE S0=S0+20
   : P1=1
   : RETURN
2790 B$=HEX(C0C9F3C6C0)
   : RETURN
2800 PRINT AT(22,1,76)
   : IF STR(W$,H,2)<>" "THEN 2660
   : IF P0<>0 THEN RETURN
   : ELSE P0=1
   : S0=S0+10
   : RETURN
2810 IF V>22 THEN V=22
   : IF V=22 THEN V1=22
   : IF H<6 THEN H=2
   : IF H>74 THEN H=74
   : IF P<>0 THEN RETURN
   : ELSE S0=0
   : P=1
   : RETURN
2820 DEFFN'20
   : A=A+1
   : IF A=99 THEN A=0
   : IF V<>12 THEN PRINT AT(12,1,76);
2830 FOR X=1 TO J
   : ROTATEC(Z$,-8)
   : ROTATEC(Y$,8)
   : ROTATEC(V$,-8)
   : ROTATEC(V1$,-8)
   : ROTATEC(V2$,-8)
   : ROTATEC(U$,-8)
   : NEXT X
2835 IF J>4 THEN FOR X=1 TO 4
   : ELSE FOR X=1 TO J
   : ROTATEC(R$,8)
   : ROTATEC(R1$,8)
   : ROTATEC(R2$,8)
   : NEXT X
2840 FOR X=1 TO J1
   : ROTATEC(W$,-8)
   : ROTATEC(X$,8)
   : NEXT X
2850 S=1
   : GOSUB 2490
   : S=0
   : IF V>11 THEN GOSUB '25(V,H,V1,H1)
2860 PRINT AT(14,1);
   : $GIO/005(A000)STR(X$,1,76)
   : PRINT AT(16,1);
   : $GIO/005(A000)STR(Y$,1,76)
   : PRINT AT(18,1);
   : $GIO/005(A000)STR(Z$,1,76)
   : PRINT AT(20,1);
   : $GIO/005(A000)STR(W$,1,76)
   : PRINT AT(6,1);
   : $GIO/005(A000)STR(U$,1,76)
2870 S=1
   : GOSUB 2490
   : S=0
   : IF V>11 THEN GOSUB '25(V,H,V1,H1)
2880 IF D<>3 AND G=0 THEN 2890
   : G=G+1
   : IF G<R THEN 2890
   : G=0
   : W1=INT(RND(1)*2+1)
   : ON W1 GOTO 2910,2920
2890 V4$=V$
   : PRINT AT(10,1);
   : $GIO/005(A000)STR(V$,1,76)
   : GOTO 2930
2900 S=1
   : GOSUB 2490
   : S=0
   : IF V>11 THEN GOSUB '25(V,H,V1,H1)
2910 V4$=V1$
   : PRINT AT(10,1);
   : $GIO/005(A000)STR(V1$,1,76)
   : IF MOD(G,2)<>0 THEN PRINT HEX(07)
   : GOTO 2930
2920 V4$=V2$
   : PRINT AT(10,1);
   : $GIO/005(A000)STR(V2$,1,76)
   : IF MOD(G,2)<>0 THEN PRINT HEX(07)
2930 FOR X=1TO I3
   : ROTATEC(T$,8)
   : NEXT X
   : PRINT  AT(8,1);
   : $GIO/005(A000)STR(T$,1,76)
2940 IF D1<>3 AND G1=0 THEN 2950
   : G1=G1+1
   : IF G1<R THEN 2950
   : G1=0
   : W=INT(RND(1)*2+1)
   : ON W GOTO 2960,2970
2950 R4$=R$
   : PRINT AT(4,1);
   : $GIO/005(A000)STR(R$,1,76)
   : IF MOD(G1,2)<>0 THEN PRINT HEX(07)
   : GOTO 2980
2960 R4$=R1$
   : PRINT AT(4,1);
   : $GIO/005(A000)STR(R1$,1,76)
   : IF MOD(G1,2)<>0 THEN PRINT HEX(07)
   : GOTO 2980
2970 R4$=R2$
   : PRINT AT(4,1);
   : $GIO/005(A000)STR(R2$,1,76)
   : IF MOD(G1,2)<>0 THEN  PRINT HEX(07)
2980 IF V>13 THEN GOSUB '25(V,H,V1,H1)
2990 IF H<5 THEN RETURN
3000 IF V<>12 THEN 3010
   : GOTO 3020
3010 S1$="
       \CC\EE\D9\D9\D9\D5 "
   : S$="\EA\E6\E6\E6\D9\CC
                "
   : RETURN
3020 IF H>40 THEN 3030
   : IF MOD(A,2)=0 THEN PRINT AT(12,1);STR(S$,1,76);
   : ELSE PRINT HEX(0E);AT(12,1);STR(S$,1,76);
   : FOR X=1TO J
   : ROTATEC(S$,-8)
   : NEXT X
   : PRINT HEX(0F)
   : IF G6=1 THEN RETURN
   : IF STR(A$(11),H,3)<>HEX(20) THEN 3040
   : G5=G5+1
   : IF G5<5-J THEN 3050
   : INIT(20)A$(11)
   : S4=INT(RND(1)*50+5)
   : G5=0
   : PRINT  HEX(0E);AT(12,S4);HEX(989799);
   : INIT(FF)STR(A$(11),S4,3)
   : GOTO 3050
3030 IF MOD(A,2)=0 THEN PRINT AT(12,1);STR(S1$,1,76);
   : ELSE PRINT HEX(0E);AT(12,1);STR(S1$,1,76);
   : PRINT HEX(0F)
   : FOR X=1 TO 2
   : ROTATEC(S1$,8)
   : NEXT X
   : IF G6=1 THEN RETURN
   : IF STR(A$(11),H,3)<>HEX(20) THEN 3040
   : G5=G5+1
   : IF G5<5-J THEN 3050
   : INIT(20)A$(11)
   : S4=INT(RND(1)*50+5)
   : G5=0
   : PRINT  HEX(0E);AT(12,S4);HEX(989799);
   : INIT(FF)STR(A$(11),S4,3)
   : GOTO 3050
3040 FOR X=1TO 5
   : FOR X1=1TO 500
   : NEXT X1
   : PRINT HEX(07)
   : PRINT HEX(0E);AT(12,H-2);"BONUS";
   : NEXT X
   : PRINT AT(12,1,76);
   : S0=S0+INT(RND(1)*1000)
   : INIT(20)STR(A$(11),1,76)
   : G6=1
   : RETURN
3050 PRINT HEX(0E);AT(12,S4);HEX(989799);
   : INIT(FF)STR(A$(11),S4,3)
   : RETURN
3500 DEFFN'25(V,H,V1,H1)
   : IF V<3THEN GOSUB '10(V)
   : IF B$=HEX(C0C9F3C6C0) THEN 3530
   : IF V=10 THEN N=1
   : ELSE N=0
   : IF V>11 THEN  PRINT AT(V1,H1);"  ";
   : PRINT HEX(0E);AT(V,H);B$;
   : PRINT HEX(0F)
3510 IF INT(S0/2000)=INT(S3/2000) THEN 3520
   : K5=K5+1
   : PRINT AT(0,28,25);HEX(07)
   : FOR X=1 TO MIN(10,K5)
   : PRINT HEX(0E); AT(0,(32-MIN(10,K5)*2)+X*4);HEX(D9E6)
   : NEXT X
   : PRINT HEX(0F)
3520 PRINT AT(0,12);HEX(0E);
   : PRINTUSING "######",S0;
   : PRINT HEX(0F)
   : S3=S0
   : RETURN
3530 IF V<>12 THEN 3535
   : IF H>40 THEN PRINT AT(12,1);STR(S1$,1,76)
   : ELSE PRINT AT(12,1);STR(S$,1,76);
3535 PRINT AT(V1,H1);"  ";
   : PRINT HEX(0E);AT(V,H-1);B$;
   : K5=K5-1
   : FOR X=1 TO 1000
   : PRINT HEX(07)
   : NEXT X
   : P0,P1,P2,P3,P4,P5,P6,P7,P8=0
   : GOTO 2000
3540 PRINT AT(V1,H1);"  "
   : PRINT HEX(0E);AT(3,H);HEX(D9E6);
   : PRINT HEX(0F)
   : F=F+1
   : S0=S0+100
   : ON F GOTO 3550,3560,3570,3580
3550 F(1)=H
   : GOTO 3600
3560 F(2)=H
   : GOTO 3600
3570 F(3)=H
   : GOTO 3600
3580 F(4)=H
   : M=M+1
   : S0=S0+100
   : PRINT HEX(07)
   : IF MOD(M,2)=0 THEN 3590
   : I3=I3+1
   : J=J+1
   : J1=J1+1
3590 P0,P1,P2,P3,P4,P5,P6,P7,P8,F=0
   : R=R-1
   : INIT(20)STR(A$(2),10,5)
   : INIT(20)STR(A$(2),29,5)
   : INIT(20)STR(A$(2),47,5)
   : INIT(20)STR(A$(2),64,5)
   : GOTO 3600
3600 FOR X=1 TO 5
   : FOR T=1TO 800
   : NEXT T
   : PRINT HEX(07)
   : NEXT X
   : P0,P1,P2,P3,P4,P5,P6,P7,P8=0
   : GOTO 2000
3610 REM %  ****  HIGH-SCORE ROUTINE  ****
3620 DATA LOAD DC OPEN T"KERM-H.S"
3630 IF S0=0 THEN 4250
3640 CONVERT S0 TO H$,(#######)
   : IF STR(H$,,1)="0"THEN STR(H$,,POS(H$>"0")-1)=ALL(20)
3650 DBACKSPACE BEG
   : DATA LOAD DC H$()
   : H=1
3660 IF H$>STR(H$(H),,7)THEN 3680
   : IF H=10THEN 4250
   : H=H+1
   : GOTO 3660
3680 DIM W$(24)79,E$(1)1,F$(1)1
3690 PRINT HEX(03060202020F020402000E)
3700 E$()=ALL(80)
   : F$()=ALL(90)
3710 FOR X=1TO 80
   : PRINT AT((RND(1)*12),(RND(1)*79));E$()
   : NEXT X
   : FOR X=1TO 25
   : PRINT AT((RND(1)*12),(RND(1)*79));F$()
   : NEXT X
3720 A=INT(RND(1)*117)+25
   : B=INT(RND(1)*30)+15
   : C=INT(RND(1)*10)+5
3730 B=10
   : C=25
3740 W$()=ALL(C0)
3750 RESTORE LINE 3860
   : FOR K=9TO 25
   : READ R1,R2
   : GOSUB '155(A+R1,67+R2)
   : NEXT K
   : S=0
3760 GOSUB '22
3770 FOR K=69 TO B STEP -2
   : GOSUB '155(A,K)
   : GOSUB '155(A,K-1)
   : GOSUB '155(A,K-2)
   : IF S=2 THEN GOSUB '22
   : GOSUB '154(A,K)
   : GOSUB '154(A,K-1)
   : GOSUB '154(A,K-2)
   : S=S+1
   : K7=K7+1
   : IF K7=2 OR K7=3 THEN PRINT AT(16,0,632);
   : NEXT K
3780 IF C>10 THEN C=10
   : RESTORE LINE 3860
   : FOR K=1TO C*6
3790 READ R1,R2
3800 GOSUB '255(A+R1,B+R2)
3810 NEXT K
3820 RESTORE LINE 3860
   : FOR K=1TO C*6
3830 READ R1,R2
3840 GOSUB '254(A+R1,B+R2)
3850 NEXT K
3860 DATA -1,-1,1,-1,0,0,0,-1,-1,1,1,1
3870 DATA -2,-1,2,-1,-1,-2,1,-2,-3,2,3,2
3880 DATA -4,-1,4,-1,-3,-3,3,-3,-4,2,4,2
3890 DATA -5,-2,5,-2,-5,-4,5,-4,-5,2,5,2
3900 DATA -7,-2,7,-2,-7,-5,7,-5,-6,3,6,3
3910 DATA -9,-2,9,-2,-8,-5,8,-5,-7,3,7,3
3920 DATA -11,-1,11,-1,-10,-5,10,-5,-8,4,8,4
3930 DATA -13,0,13,0,-12,-4,12,-4,-9,5,9,5
3940 DATA -15,1,15,1,-14,-3,14,-3,-9,6,9,6
3950 DATA -16,2,16,2,-16,-2,16,-2,-9,6,-9,6
3960 DATA -1,-1,1,-1,0,0,0,-1,-1,1,1,1
3970 DATA -11,-1,11,-1,-10,-5,10,-5,-8,4,8,4
3980 GOTO 4185
3990 DEFFN'254(X,Y)
4000 X=INT(X)
   : Y=INT(Y)
   : X1=INT(Y/3)+1
   : Y1=INT(X/2)+1
4010 B0=MOD(Y,3)*2+MOD(X,2)
   : STR(W$(X1),Y1,1)=XOR BIN(2^B0)
4020 PRINT AT(X1-2,Y1-2);STR(W$(X1),Y1,1);
4030 PRINT AT(X1,Y1);STR(W$(X1),Y1,1);
4040 PRINT AT(X1-1,Y1-1);STR(W$(X1),Y1,1);
   : RETURN
4050 DEFFN'255(X,Y)
4060 X=INT(X)
   : Y=INT(Y)
   : X1=INT(Y/3)+1
   : Y1=INT(X/2)+1
4070 B0=MOD(Y,3)*2+MOD(X,2)
   : STR(W$(X1),Y1,1)=OR BIN(2^B0)
4080 PRINT AT(X1-1,Y1-1);STR(W$(X1),Y1,1);
   : RETURN
4090 DEFFN'154(X,Y)
4100 X=INT(X)
   : Y=INT(Y)
   : X1=INT(Y/3)+1
   : Y1=INT(X/2)+1
4110 B0=MOD(Y,3)*2+MOD(X,2)
   : STR(W$(X1),Y1,1)=XOR BIN(2^B0)
4120 PRINT AT(X1-1,Y1-1);STR(W$(X1),Y1,1);
   : RETURN
4130 DEFFN'155(X,Y)
4140 X=INT(X)
   : Y=INT(Y)
   : X1=INT(Y/3)+1
   : Y1=INT(X/2)+1
4150 B0=MOD(Y,3)*2+MOD(X,2)
   : STR(W$(X1),Y1,1)=OR BIN(2^B0)
4160 PRINT AT(X1-1,Y1-1);STR(W$(X1),Y1,1);
   : RETURN
4170 DEFFN'23
   : RESTORE LINE 3860
   : FOR T=9TO 25
   : READ R1,R2
   : GOSUB '154(A+R1,67+R2)
   : NEXT T
   : K=K+2
   : RETURN
4180 DEFFN'22
   : FOR X=1TO 17
   : PRINT AT((RND(1)*7),(RND(1)*79));E$()
   : NEXT X
   : FOR X=1TO 12
   : PRINT AT((RND(1)*7),(RND(1)*79));F$()
   : NEXT X
   : RETURN
4185 FOR K=9 TO H STEP -1
   : H$(K+1)=H$(K)
   : NEXT K
4190 H$(H)=ALL(20)
   : STR(H$(H),,7)=H$
4210 PRINT HEX(03);AT(7,10);BOX(6,60);AT(8,16);"Congratulations your score qua
     lifies you for the"
   : PRINT TAB(12);"KERMIT Hall of Champions!  Please enter your name below."
4215 STR(H$(H),8,30)=" "
4220 KEYIN K$,4220,4220
   : PRINT AT(11,24);HEX(0202000F);
   : LINPUT -STR(H$(H),8,30)
   : IF STR(H$(H),8,30)=" "THEN 4220
   : PRINT HEX(0306)
4230 STR(H$(H),38,2)=ALL(00)
   : FOR K=1TO 37
   : STR(H$(H),38,2)=ADDCSTR(H$(H),K,1)
   : NEXT K
4240 DBACKSPACE BEG
   : DATA SAVE DC H$()
   : DATA SAVE DC END
4250 DATA SAVE DC CLOSE
   : LOAD T"KERMIT"
9998 DEFFN'30"SELECT LIST 215(150):LIST";HEX(22);"K E R M G A M E";HEX(22);"D:
      LIST";HEX(22);"K E R M G A M E";HEX(22);" V:LIST#:LIST':SELECT  LIST 005
     (80)";HEX(0D)
9999 REM % BY SCOTT DARROW"  22/05/82