1858 CLS: Z=0:BR$="00000000000000"
1860 CKE=0
1870 AA$="00101010543810"
1880 LINE (190,4)-(185,8)
1890 LINE (190,16)-(185,20)
1900 LINE (185,8)-(185,10)
1919 LINE (185,20)-(185,22)
1920 LINE (185,10)-(190,14)
1930 LINE (185,22)-(190,26)
1940 LINE (192,14)-(197,10)
1950 LINE (192,26)-(197,22)
1960 LINE (190,14)-(192,14)
1970 LINE (190,26)-(192,26)
1980 LINE (197,10)-(197,8)
1990 LINE (197,22)-(197,20)
2000 LINE (190,4)-(192,4)
2010 LINE (190,16)-(192,16)
2020 LINE (192,4)-(197,8)
2030 LINE (192,16)-(197,20)
2040 LINE (191,9)-(191,9)
2050 LINE (191,21)-(191,21)
2060 LINE (185,8)-(168,10)
2070 LINE (185,22)-(168,20)
2080 LINE (197,7)-(200,10)
2090 LINE (197,23)-(200,20)
2100 LINE (200,10)-(200,12)
2110 LINE (200,20)-(200,18)
2120 LINE (200,12)-(198,14)
2130 LINE (200,18)-(198,16)
2140 LINE (198,14)-(198,16)
2150 LINE (200,12)-(204,11)
2160 LINE (200,18)-(204,19)
2170 LINE (204,11)-(206,11)
2180 LINE (204,19)-(206,19)
2190 LINE (201,14)-(201,16)
2200 LINE (206,11)-(210,13)
2210 LINE (206,19)-(210,17)
2220 LINE (211,14)-(211,16)
2230 LINE (206,17)-(206,17)
2240 LINE (206,13)-(206,13)
2250 LINE (204,15)-(206,15)
2260 LINE (200,11)-(202,11)
2270 LINE (200,10)-(206,10)
2280 LINE (200,19)-(202,19)
2290 LINE (200,20)-(206,20)
2300 LINE (168,10)-(158,0)
2310 LINE (168,20)-(158,31)
2320 LINE (151,0)-(159,14)
2330 LINE (159,16)-(151,31)
2340 LINE (151,31)-(131,29)
2350 LINE (151,0)-(131,2)
2360 LINE (131,2)-(130,0)
2370 LINE (131,29)-(130,31)
2380 LINE (159,14)-(159,16)
2390 LINE (159,14)-(163,13)
2400 LINE (159,16)-(163,17)
2410 LINE (163,13)-(163,17)
2420 LINE (162,13)-(162,17)
2430 LINE (161,13)-(161,17)
2440 LINE (160,14)-(160,16)
2450 LINE (171,15)-(171,15)
2460 LINE (197,20)-(205,31)
2470 LINE (193,25)-(201,31)
2480 LINE (197,9)-(205,0)
2490 LINE (201,0)-(193,5)
2500 LINE (206,20)-(210,18)
2510 LINE (206,10)-(210,12)
2520 LINE (210,12)-(211,13)
2530 LINE (210,18)-(211,17)
2540 A1$="00008040780402"
2550 A2$="424242C24242C4"
2560 A3$="02020408708000"
2570 B1$="00069960000000"
2580 B2$="54545CD4555548"
2590 B3$="000000000817E0"
2600 C1$="000F30C0000000"
2610 C2$="25252525252575"
2620 C3$="0000000080601F"
2630 D1$="010204091A3454"
2640 D2$="48404040404020"
2650 D3$="40404020201F00"
2660 GOSUB 3240
2670 GOTO 2740
2680 AA$="00101010543810"
2690 FOR F=0 TO 150
2700 GCURSOR (F,18)
2710 GPRINT AA$
2720 NEXT F
2730 GOTO 3000
2740 P=(RND 20)+5
2750 IF INKEY$="+" THEN P=P+1
2760 IF INKEY$="-" THEN P=P-1
2770 IF INKEY$="=" THEN GOSUB 2850
2780 LOCATE 10,0: PRINT "SC:";CKE;"   "
2790 LOCATE 10,3: PRINT "HI:";HI;"   "
2800 LOCATE 0,3: PRINT "Z:";5-Z;"   "
2810 IF Z=5 THEN 2880
2820 GCURSOR (10,P)
2830 GPRINT AA$
2840 GOTO 2750
2850 IF P=18 THEN 2680
2860 IF P=30 THEN Z=Z-1: RETURN
2870 IF P<>18 THEN BEEP 1,10,1:Z=Z+1:RETURN
2880 A2$="222222622222E4"
2890 B2$="EA2A2A2E2A2A24"
2900 C2$="1212122A2A2A2A"
2910 GOSUB 3240
2920 FOR F=0 TO 3
2930 LOCATE 0,F: PRINT "    "
2940 NEXT F
2950 IF CKE=HI THEN LINE (80,0)-(110,7),X,BF
2960 LINE (125,0)-(240,32),X,BF
2970 LINE (240,32)-(125,0),X,BF
2980 CKE=0
2990 Z=0: GOTO *OUT
3000 A2$="222222622222E4"
3010 B2$="1494941C141408"
3020 C2$="919292D2B29292"
3030 S9=1
3040 GOSUB 3240
3050 GCURSOR (150,18): GPRINT BR$
3060 CKE=CKE=1
3070 GCURSOR (146,18): GPRINT AA$
3080 IF CKE>HI THEN HI=CKE
3090 GCURSOR (146,18): GPRINT BR$
3100 LOCATE 10,0: PRINT "SC:";CKE;"   "
3110 LOCATE 10,3: PRINT "HI:";HI;"   "
3120 LOCATE 0,3: PRINT "Z:";5-Z;"   "
3130 GCURSOR (150,18): GPRINT AA$
3140 IF S9=13 THEN 3160
3150 S9=S9+1: GOTO 3050
3160 A2$="32525252525234"
3170 B2$="27515143414147"
3180 C2$="E42A28642222E4"
3190 C3$="00040A0080601F"
3200 GOSUB 3240
3210 GOSUB 3370
3220 GCURSOR (150,18): GPRINT BR$
3230 GOTO 2540
3240 GCURSOR (218,8):GPRINT A1$
3250 GCURSOR (218,16):GPRINT B1$
3260 GCURSOR (218,24):GPRINT C1$
3270 GCURSOR (218,32):GPRINT D1$
3280 GCURSOR (225,32):GPRINT D2$
3290 GCURSOR (225,24):GPRINT C2$
3300 GCURSOR (225,16):GPRINT B2$
3310 GCURSOR (225,8):GPRINT A2$
3320 GCURSOR (232,8):GPRINT A3$
3330 GCURSOR (232,16):GPRINT B3$
3340 GCURSOR (232,24):GPRINT C3$
3350 GCURSOR (232,32):GPRINT D3$
3360 RETURN
3370 AN$="10101054381000"
3380 FOR F=150 TO 10 STEP -1
3390 GCURSOR (F,18): GPRINT AN$
3400 NEXT F
3410 GCURSOR (10,18):GPRINT BR$
3420 RETURN
3530 *OUT