TT = TIMER
PLAY "MF"
CLS : SCREEN 1: COLOR 0, 1
LOCATE 23, 13: PRINT "** NEO.SONIC **"
LINE (190, 72)-(130, 120), 1, B
LINE (179, 73)-(189, 119), 1, BF
LINE (131, 73)-(177, 119), 1
LINE (143, 73)-(189, 119), 1
PAINT (132, 73), 1, 1
LINE (141, 119)-(130, 72), 1, BF
LINE (190, 72)-(130, 120), 2, B
LINE (143, 73)-(183, 80), 2, BF
LINE (136, 94)-(143, 81), 2, BF
LINE (172, 101)-(144, 94), 2, BF
LINE (144, 72)-(136, 80), 2
PAINT (140, 78), 2, 2
LINE (143, 101)-(136, 94), 2
PAINT (142, 97), 2, 2
LINE (172, 94)-(179, 101), 2
LINE (172, 101)-(179, 108), 2
LINE (179, 101)-(179, 108), 2
PAINT (176, 101), 2, 2
LINE (139, 113)-(170, 119), 2, BF
LINE (170, 113)-(176, 119), 2
PAINT (172, 117), 2, 2
LINE (190, 72)-(130, 120), 3, B
SLEEP 1
COLOR 7, 1: SOUND 2500, .5: SOUND 3000, .5: COLOR 7, 0
FOR A = 1 TO 5
COLOR 0, 0: COLOR 0, 1
NEXT A
SLEEP 3: A$ = INKEY$: A$ = INKEY$
10 CLS : SCREEN 0: KEY OFF: COLOR 4, 0: LOCATE 1, 1: PRINT "SHIFT UP": UP$ = INPUT$(1): COLOR 7, 0: LOCATE 1, 20: PRINT UP$
20 COLOR 4, 0: LOCATE 2, 1: PRINT "SHIFT DOWN": DO$ = INPUT$(1): COLOR 7, 0: LOCATE 2, 20: PRINT DO$
30 COLOR 4, 0: LOCATE 3, 1: PRINT "SHIFT LEFT": LI$ = INPUT$(1): COLOR 7, 0: LOCATE 3, 20: PRINT LI$
40 COLOR 4, 0: LOCATE 4, 1: PRINT "SHIFT RIGHT": RI$ = INPUT$(1): COLOR 7, 0: LOCATE 4, 20: PRINT RI$
50 COLOR 4, 0: LOCATE 5, 1: PRINT "KEY(A)": PP$ = INPUT$(1): COLOR 7, 0: LOCATE 5, 20: PRINT PP$
60 COLOR 4, 0: LOCATE 6, 1: PRINT "KEY(B)": BO$ = INPUT$(1): COLOR 7, 0: LOCATE 6, 20: PRINT BO$
70 LOCATE 8, 15: PRINT "HIT ANYKEY"
80 K$ = INPUT$(1)
90 SCREEN 1: CLS
100 CLS : SCREEN 1: COLOR 5, 0: BO = 30: CON = 5
110 CIRCLE (207, 96), 18, 2, 32 * .19625, 9 * .19625
120 CIRCLE (207, 96), 18, 2, 32 * .19625, 9 * .19625
130 CIRCLE (108, 22), 58, 2, 18 * .19625, 23 * .19625
140 CIRCLE (122, 45), 69, 2, 15 * .19625, 18 * .19625
150 CIRCLE (52, 76), 13, 2, 6 * .19625, 20 * .19625
160 CIRCLE (29, 661), 686, 2, 7 * .19625, 8.5 * .19625
170 CIRCLE (205, 53), 56, 2, 23 * .19625, 26 * .19625
180 CIRCLE (76, 83), 14, 2, 30 * .19625, 7 * .19625
190 CIRCLE (139, 25), 56, 2, 21 * .19625, 23 * .19625
200 LINE (203, 80)-(99, 69), 2
210 LINE (0, 90)-(42, 84), 2
220 LINE (241, 107)-(152, 99), 2
230 LINE (44, 83)-(241, 106), 2
240 LINE (243, 97)-(226, 95), 2
250 LINE (226, 93)-(243, 97), 2
260 LINE (108, 64)-(91, 67), 2
270 LINE (80, 72)-(56, 67), 2
280 PAINT (160, 95), 3, 2
290 PAINT (79, 77), 3, 2
300 PAINT (43, 87), 3, 2
310 PAINT (115, 69), 3, 2
320 PAINT (124, 71), 3, 2
330 PAINT (208, 103), 3, 2
340 PAINT (215, 104), 3, 2
350 PAINT (226, 105), 3, 2
360 PAINT (234, 106), 3, 2
370 PAINT (226, 94), 3, 2
380 PAINT (231, 95), 3, 2
390 LINE (218, 87)-(202, 90), 1
400 IF TE = 1 THEN LOCATE 16, 15: PRINT "   THE END   "
410 IF TE = 1 THEN SOUND 200!, 2: SOUND 250!, 2: SOUND 240!, 2: SOUND 250!, 2: SOUND 230!, 2: SOUND 200!, 4: SOUND 270!, 2: SOUND 260!, 2: SOUND 270!, 2: SOUND 250!, 4: SOUND 230!, 2: SOUND 280!, 4: SOUND 280!, 2: SOUND 270!, 2: SOUND 250!, 2: SOUND _
 200!, 2: SOUND 230!, 2
420 IF TE = 1 THEN SOUND 220!, 2: SOUND 230!, 4: SOUND 200!, 4: SOUND 250!, 2: SOUND 240!, 2: SOUND 220!, 2: SOUND 230!, 4: SOUND 230!, 2: SOUND 260!, 9: SOUND 260!, 2: SOUND 250!, 2: SOUND 230!, 2
430 IF TE = 1 THEN 410
440 LINE (218, 87)-(202, 90), 1
450 LOCATE 16, 15: PRINT "             "
460 LOCATE 16, 15: PRINT "FIGHTER PLANE"
LOCATE 23, 13: PRINT "** NEO.SONIC **"
470 E$ = INPUT$(1): BBOO = 3
480 L = 5
490 CLS : SCREEN 1: COLOR 0, 1: KEY OFF: POWER = 30: DR = 0: IF SCORE > 1000 THEN W1 = 270: W2 = 100
500 C = 2: P = 1: A = -50: B = 15
510 LINE (0, 16)-(0, 187)
520 LINE (80, 15)-(305, 15)
530 LINE (305, 187)-(305, 15)
540 LINE (305, 187)-(0, 187)
550 IF BO < 1 THEN L = L + 1: BBOO = BBOO + 6: CON = CON + 1
560 PAINT (319, 96), 0, 3
570 IF BO < 1 THEN IF DX = 1 THEN CIRCLE (W1, W2), 25, 1: PAINT (W1, W2), 2, 1: CIRCLE (W1, W2), 17, 3: PAINT (W1, W2), 3, 3: SOUND 50!, 9: SOUND 55, .9: PAINT (W1, W2), 0, 1: CIRCLE (W1, W2), 16, 0: COLOR 7, 0: SOUND 50, .1: SOUND 55, .4: COLOR 0,  _
1: CLS : MORTH = 9: W1 = 239: W2 = 76
580 IF BO < 1 THEN IF DX = 1 THEN BO = 40: DX = 2: BBOO = BBOO - 2
590 IF BO < 1 THEN IF DX = 2 THEN CIRCLE (227, 87), 81, 1: PAINT (227, 87), 1, 1: CIRCLE (227, 87), 63, 2: PAINT (227, 87), 2, 2: CIRCLE (227, 87), 54, 3: PAINT (227, 87), 3, 3: SOUND 50!, 9: SOUND 55, .9: COLOR 7, 0: PAINT (227, 87), 0, 0: CIRCLE ( _
227, 87), 81, 0: SOUND 50, .1: SOUND 55, .4
600 IF BO < 1 THEN IF DX = 3 THEN CIRCLE (227, 87), 71, 1: PAINT (227, 87), 1, 1: CIRCLE (227, 87), 53, 2: PAINT (227, 87), 2, 2: CIRCLE (227, 87), 44, 3: PAINT (227, 87), 3, 3: SOUND 50!, 9: SOUND 55, .9: COLOR 7, 0: PAINT (227, 87), 0, 0: CIRCLE ( _
227, 87), 71, 0: SOUND 50, .1: SOUND 55, .4
610 IF BO < 1 THEN IF DX = 3 THEN SOUND 70!, 2: SOUND 40!, 2: COLOR 0, 1: CLS : GOTO 5570
620 IF BO < 1 THEN IF DX = 2 THEN DX = 3: BO = 30: L = L + 1: SOUND 70!, 2: SOUND 40!, 2: COLOR 0, 1: CLS : DR4 = 0
630 IF BO < 1 THEN IF SCORE < 1000 THEN CIRCLE (250, 160), 25, 1: PAINT (250, 160), 2, 1: CIRCLE (250, 160), 17, 3: PAINT (250, 160), 3, 3: SOUND 50!, 9: SOUND 55, .9: PAINT (250, 160), 0, 1: CIRCLE (250, 160), 16, 0: COLOR 7, 0: SOUND 50, .1: SOUND _
 55, .4: COLOR 0, 1: CLS : W1 = 270: W2 = 100
640 IF BO < 1 THEN IF SCORE < 1000 THEN BO = 40: SCORE = 1001: BBOO = BBOO - 5
650 IF BO < 1 THEN IF SCORE > 1000 THEN CIRCLE (270, 100), 25, 1: PAINT (270, 100), 2, 1: CIRCLE (270, 100), 17, 3: PAINT (270, 100), 3, 3: SOUND 50!, 9: SOUND 55, .9: PAINT (270, 100), 0, 1: CIRCLE (270, 100), 16, 0: COLOR 7, 0: SOUND 50, .1: SOUND _
 55, .4: COLOR 0, 1: CLS
660 IF BO < 1 THEN IF SCORE > 1000 THEN BO = 40: SCORE = SCORE + 1000: BBOO = BBOO - 4
670 IF POWER < 1 THEN DR3 = 0: DR4 = 0: GOTO 2410
680 LOCATE 1, 1: PRINT "POWER:"; POWER; ""
690 LOCATE 1, 13: PRINT "ENEMY:"; BO + BO2; ""
700 LOCATE 1, 26: PRINT "LIFE:"; L; ""
710 IF BBOO > 99 THEN BBOO = 99
720 LOCATE 2, 1: PRINT " BOMB:"; BBOO; ""
730 IF L = 0 THEN CLS : GOTO 5140
740 IF DX = 1 OR SCORE > 2000 THEN 3250
PALETTE 1, 4: PALETTE 2, 6
750 IF DX = 2 THEN 4040
760 IF DX = 3 THEN 4510
770 IF SCORE > 1000 THEN 2680
780 IF SCORE < 1000 THEN 2180
790 IF DX = 3 THEN 4890
800 IF P = 1 OR P = 9 THEN CIRCLE (A + 7, B + 1), 5, C, 31 * .19625, 8 * .19625: CIRCLE (A + 1, B - 15), 15, C, 19 * .19625, 26 * .19625: LINE (A + 12, B + 2)-(A - 13, B + 2), C: LINE (A - 18, B + 1)-(A + 5, B + 1), C: LINE (A - 11, B)-(A - 13, B -  _
7), C
810 IF P = 2 THEN CIRCLE (A + 4, B), 5, C, 4 * .19625, 11 * .19625: CIRCLE (A - 12, B - 11), 15, C, 23 * .19625, 29 * .19625: LINE (A - 4, B + 6)-(A + 7, B - 2), C: LINE (A - 7, B + 8)-(A + 4, B - 1), C: LINE (A - 12, B + 2)-(A - 4, B + 5), C
820 IF P = 3 THEN CIRCLE (A + 3, B - 4), 5, C, 8 * .19625, 17 * .19625: CIRCLE (A - 17, B - 4), 15, C, 27 * .19625, 32 * .19625: LINE (A + 3, B + 7)-(A + 3, B - 7), C: LINE (A + 2, B - 4)-(A + 2, B + 10), C: LINE (A + 1, B + 6)-(A - 8, B + 8), C
830 IF P = 4 THEN CIRCLE (A - 4, B - 4), 5, C, 10 * .19625, 21 * .19625: CIRCLE (A - 13, B + 10), 15, C, 31 * .19625, 6 * .19625: LINE (A - 6, B - 7)-(A + 9, B + 4), C: LINE (A + 12, B + 7)-(A - 3, B - 4), C: LINE (A + 3, B + 10)-(A + 7, B + 4), C
840 IF P = 5 THEN CIRCLE (A - 8, B - 1), 5, C, 15 * .19625, 25 * .19625: CIRCLE (A - 1, B + 15), 15, C, 3 * .19625, 10 * .19625: LINE (A - 13, B - 2)-(A + 12, B - 2), C: LINE (A + 18, B - 1)-(A - 6, B - 1), C: LINE (A + 13, B + 7)-(A + 11, B), C
850 IF P = 6 THEN CIRCLE (A - 5, B + 2), 5, C, 17 * .19625, 26 * .19625: CIRCLE (A + 12, B + 10), 15, C, 8 * .19625, 14 * .19625: LINE (A + 3, B - 7)-(A - 9, B + 3), C: LINE (A - 5, B + 1)-(A + 8, B - 11), C: LINE (A + 4, B - 5)-(A + 10, B - 3), C
860 IF P = 7 THEN CIRCLE (A - 3, B + 4), 5, C, 24 * .19625, 1 * .19625: CIRCLE (A + 17, B + 2), 15, C, 11 * .19625, 17 * .19625: LINE (A - 3, B + 7)-(A - 3, B - 6), C: LINE (A - 2, B + 3)-(A - 2, B - 10), C: LINE (A + 6, B - 8)-(A - 1, B - 6), C
870 IF P = 8 THEN CIRCLE (A + 3, B + 5), 5, C, 25 * .19625, 6 * .19625: CIRCLE (A + 13, B - 10), 15, C, 15 * .19625, 22 * .19625: LINE (A + 4, B + 8)-(A - 9, B - 5), C: LINE (A + 2, B + 5)-(A - 12, B - 9), C: LINE (A - 7, B - 6)-(A - 3, B - 11), C
880 IF G = 1 THEN P = P + 1: G = 0: IF P > 8 THEN P = 1
890 IF G = 2 THEN P = P - 1: G = 0: IF P < 1 THEN P = 8
900 IF CBC = 0 THEN CBC = 1: GOTO 1290
910 A$ = "0"
920 IF C = 2 THEN 1290
930 IF P = 1 THEN A = A + 16: B = B + 3: PPP2 = 0
940 IF P = 2 THEN A = A + 12: PPP3 = 0: PPP2 = PPP2 + 1: IF PPP2 > 0 THEN B = B - 8
950 IF P = 3 THEN B = B - 15: PPP2 = 3: PPP4 = 3: PPP3 = PPP3 + 1: IF PPP3 > 6 THEN B = B + 11.5
960 IF PPP3 > 4 THEN IF P = 3 THEN B = B + 3
970 IF PPP3 > 15 THEN IF P = 3 THEN B = B + 1.5
980 IF PPP3 > 20 THEN IF P = 3 THEN B = B + 3
990 IF PPP3 > 22 THEN IF P = 3 THEN B = B + 8
1000 IF PPP3 > 25 THEN IF P = 3 THEN B = B + 9
1010 IF P = 4 THEN A = A - 12: PPP3 = 0: PPP4 = PPP4 + 1: IF PPP4 > 0 THEN B = B - 8
1020 IF P = 5 THEN A = A - 16: B = B + 3: PPP4 = 0
1030 IF G = 3 THEN IF P = 9 THEN A = A - 12: G = 0: IF A < 10 THEN A = 15
1040 IF G = 4 THEN IF P = 9 THEN A = A + 12: G = 0: IF A > 293 THEN A = 293
1050 IF P = 6 THEN A = A - 12: B = B + 14
1060 IF P = 7 THEN B = B + 23
1070 IF P = 8 THEN A = A + 12: B = B + 14
1080 IF SCORE < 1000 THEN 2360
1090 IF SCORE > 1000 THEN 2830
1100 IF A > 295 THEN IF P = 1 THEN P = 4: SOUND 100, .5: A = A - 20: PPP0 = 0: IF B > 180 THEN B = B - 15
1110 IF A > 292 THEN IF PPP0 > 15 THEN A = 292
1120 IF A > 295 THEN IF P = 8 THEN P = 6: SOUND 100, .5: A = A - 20
1130 IF A > 295 THEN IF P = 2 THEN P = 4: SOUND 100, .5: A = A - 20
1140 IF B < 22 THEN IF P = 2 THEN P = 8: SOUND 100, .5: B = B + 15
1150 IF B < 22 THEN IF P = 3 THEN P = 6: SOUND 100, .5: B = B + 15
1160 IF B < 22 THEN IF P = 4 THEN P = 6: SOUND 100, .5: B = B + 15
1170 IF B > 180 THEN IF P = 6 THEN P = 4: SOUND 100, .5: B = B - 15
1180 IF B > 180 THEN IF P = 7 THEN P = 2: SOUND 100, .5: B = B - 15
1190 IF B > 180 THEN IF P = 8 THEN P = 2: SOUND 100, .5: B = B - 15
1200 IF B > 180 THEN IF P = 5 THEN P = 4: SOUND 100, .5: B = B - 15
1210 IF B > 180 THEN IF P = 3 THEN SOUND 100, .5: B = B - 15: PPP3 = 0
1220 IF B > 180 THEN IF P = 2 OR P = 4 THEN B = 179
1230 IF B > 184 THEN IF P = 1 THEN B = 184: PPP0 = PPP0 + 1: IF PPP0 > 7 THEN P = 9
1240 IF P = 9 THEN PPP0 = PPP0 + 1: A = A + 4: IF PPP0 > 15 THEN A = A - 1.5: IF PPP0 > 25 THEN A = A - 2.5
1250 IF A < 10 THEN IF P = 4 THEN P = 2: SOUND 100, .5: A = A + 20
1260 IF A < 10 THEN IF P = 5 THEN P = 2: SOUND 100, .5: A = A + 20
1270 IF A < 10 THEN IF P = 6 THEN P = 8: SOUND 100, .5: A = A + 20
1280 IF C = 0 THEN C = 2: GOTO 510
1290 A$ = INKEY$
Y:
IF TIMER - TT < .15 THEN GOTO Y
TT = TIMER
1300 IF SCORE < 1000 THEN BBQ1 = 230: BBQ2 = 160
1310 IF SCORE > 1000 THEN BBQ1 = 270: BBQ2 = 100
1320 IF DX = 1 THEN BBQ1 = W1: BBQ2 = W2
1330 IF DX = 2 THEN BBQ1 = 227: BBQ2 = 87
1340 IF DX = 3 THEN BBQ1 = 227: BBQ2 = 108
1350 IF SCORE < 1000 THEN 2510
1360 IF SCORE > 1000 THEN 2850
1370 IF PPP3 > 15 THEN GOTO 1530
1380 IF C = 0 THEN C = 3: GOTO 510
1390 IF A < 5 THEN 1570
1400 IF A$ = UP$ THEN G = 1: IF P = 9 THEN P = 1: PPP0 = 0
1410 IF A$ = UP$ THEN IF P = 2 THEN IF PPP2 < 0 THEN G = 0: PPP2 = PPP2 + 6
1420 IF A$ = UP$ THEN IF P = 9 THEN PPP2 = -5
1430 IF A$ = DO$ THEN G = 2: IF P = 9 THEN PPP0 = 0
1440 IF A$ = DO$ THEN IF P = 4 THEN IF PPP4 < 0 THEN G = 0: PPP4 = PPP4 + 6
1450 IF A$ = "E" THEN BOMB = 3: RER = -100
1460 IF A$ = LI$ THEN G = 3
1470 IF A$ = RI$ THEN G = 4
1480 IF A$ = "Q" THEN BO = 0
1490 IF A$ = "W" THEN POWER = 0: GOTO 670
1500 IF A$ = BO$ THEN IF B4 = 1 THEN GOTO 1530
1510 IF A$ = BO$ THEN IF B4 = 0 THEN B4 = 1: BA4 = A: BB4 = B: BBOO = BBOO - 1
1520 IF BBOO < 0 THEN BBOO = BBOO + 1: B4 = 0
1530 IF A$ = PP$ THEN IF B3 > 0 THEN GOTO 2130
1540 IF A$ = PP$ THEN IF B3 = 0 THEN B3 = P: BA3 = A: BB3 = B: SOUND 50, .5
1550 IF A$ = PP$ THEN IF B2 = 0 THEN B2 = P: BA2 = A: BB2 = B: SOUND 50, .5
1560 IF A$ = PP$ THEN IF B1 = 0 THEN B1 = P: BA = A: BB = B: SOUND 50, .5
1570 IF B3 > 0 THEN CIRCLE (BA3, BB3), 1, 0
1580 IF B3 = 1 OR B3 = 9 THEN BA3 = BA3 + 10
1590 IF B3 = 2 THEN BA3 = BA3 + 10: BB3 = BB3 - 10
1600 IF B3 = 3 THEN BB3 = BB3 - 14
1610 IF B3 = 4 THEN BB3 = BB3 - 10: BA3 = BA3 - 10
1620 IF B3 = 5 THEN BA3 = BA3 - 14
1630 IF B3 = 6 THEN BB3 = BB3 + 10: BA3 = BA3 - 10
1640 IF B3 = 7 THEN BB3 = BB3 + 14
1650 IF B3 = 8 THEN BB3 = BB3 + 10: BA3 = BA3 + 10
1660 IF B2 > 0 THEN CIRCLE (BA2, BB2), 1, 0
1670 IF B4 > 0 THEN CIRCLE (BA4, BB4), 0, 0
1680 IF B4 > 0 THEN IF BA4 < BBQ1 + 1 THEN BA4 = BA4 + 15: GOTO 1700
1690 IF B4 > 0 THEN IF BA4 > BBQ1 THEN BA4 = BA4 - 15: GOTO 1700
1700 IF B4 > 0 THEN IF BB4 > BBQ2 - 1 THEN BB4 = BB4 - 15
1710 IF B4 > 0 THEN IF BB4 > BBQ2 - 1 THEN 1730
1720 IF B4 > -0 THEN IF BB4 < BBQ2 THEN BB4 = BB4 + 15
1730 IF B2 = 1 OR B2 = 9 THEN BA2 = BA2 + 10
1740 IF B2 = 2 THEN BA2 = BA2 + 10: BB2 = BB2 - 10
1750 IF B2 = 3 THEN BB2 = BB2 - 14
1760 IF B2 = 4 THEN BB2 = BB2 - 10: BA2 = BA2 - 10
1770 IF B2 = 5 THEN BA2 = BA2 - 14
1780 IF B2 = 6 THEN BB2 = BB2 + 10: BA2 = BA2 - 10
1790 IF B2 = 7 THEN BB2 = BB2 + 14
1800 IF B2 = 8 THEN BB2 = BB2 + 10: BA2 = BA2 + 10
1810 IF B1 > 0 THEN CIRCLE (BA, BB), 1, 0
1820 IF B1 = 1 OR B1 = 9 THEN BA = BA + 10
1830 IF B1 = 2 THEN BA = BA + 10: BB = BB - 10
1840 IF B1 = 3 THEN BB = BB - 14
1850 IF B1 = 4 THEN BB = BB - 10: BA = BA - 10
1860 IF B1 = 5 THEN BA = BA - 14
1870 IF B1 = 6 THEN BB = BB + 10: BA = BA - 10
1880 IF B1 = 7 THEN BB = BB + 14
1890 IF B1 = 8 THEN BB = BB + 10: BA = BA + 10
1900 IF BA = BA2 THEN IF BB = BB2 THEN B2 = 0
1910 IF BA = BA3 THEN IF BB = BB3 THEN B3 = 0
1920 IF BA2 = BA3 THEN IF BB2 = BB3 THEN B3 = 0
1930 IF SCORE < 1000 THEN 2420
1940 IF SCORE > 1000 THEN 3200
1950 IF DX = 1 THEN 3530
1960 IF BA > 305 THEN B1 = 0: BA = 2: SOUND 150, .9
1970 IF BA < 0 THEN B1 = 0: BA = 2: SOUND 150, .9
1980 IF BB < 15 THEN B1 = 0: BB = 22: SOUND 150, .9
1990 IF BB > 187 THEN B1 = 0: BB = 22: SOUND 150, .9
2000 IF BB2 > 187 THEN B2 = 0: BB2 = 22: SOUND 170, .9
2010 IF BB2 < 15 THEN B2 = 0: BB2 = 22: SOUND 170, .9
2020 IF BA2 < 0 THEN B2 = 0: BA2 = 2: SOUND 170, .9
2030 IF BA2 > 305 THEN B2 = 0: BA2 = 2: SOUND 170, .9
2040 IF BA3 > 305 THEN B3 = 0: BA3 = 2: SOUND 190, .9
2050 IF BA3 < 0 THEN B3 = 0: BA3 = 2: SOUND 190, .9
2060 IF BB3 < 15 THEN B3 = 0: BB3 = 22: SOUND 190, .9
2070 IF BB3 > 187 THEN B3 = 0: BB3 = 22: SOUND 190, .9
2080 IF B3 > 0 THEN CIRCLE (BA3, BB3), 1, 3
2090 IF B2 > 0 THEN CIRCLE (BA2, BB2), 1, 2
2100 IF B1 > 0 THEN CIRCLE (BA, BB), 1, 1
2110 IF B4 > 0 THEN CIRCLE (BA4, BB4), 0, 2
2120 C = 0: GOTO 510
2130 IF B2 = 0 THEN 1550
2140 IF B1 = 0 THEN 1560
2150 IF FB = 0 THEN B1 = 0: CIRCLE (BA, BB), 1, 0: B1 = 0: FB = 1: GOTO 1560
2160 IF FB = 1 THEN B2 = 0: CIRCLE (BA2, BB2), 1, 0: B2 = 0: FB = 2: GOTO 1550
2170 IF FB = 2 THEN B3 = 0: CIRCLE (BA3, BB3), 1, 0: B3 = 0: FB = 0: GOTO 1540
2180 IF DR = 0 THEN 2200
2190 GOTO 800
2200 CIRCLE (217, 180), 7, 3, 7 * .19625, 25 * .19625
2210 CIRCLE (249, 180), 7, 3, 7 * .19625, 25 * .19625
2220 CIRCLE (297, 180), 7, 3, 23 * .19625, 8 * .19625
2230 CIRCLE (276, 171), 18, 3, 31 * .19625, 9 * .19625
2240 CIRCLE (252, 164), 5, 3, 23 * .19625, 8 * .19625
2250 CIRCLE (178, 158), 2, 3, 0 * .19625, 32 * .19625
2260 LINE (296, 174)-(218, 174)
2270 LINE (272, 156)-(243, 156)
2280 LINE (251, 160)-(178, 156)
2290 LINE (178, 160)-(251, 168)
2300 LINE (235, 158)-(242, 156)
2310 LINE (227, 173)-(229, 167)
2320 LINE (273, 173)-(271, 157)
2330 LINE (259, 159)-(250, 150)
2340 LINE (233, 158)-(223, 150)
2350 DR = 1: GOTO 800
2360 IF B > 144 THEN IF A > 169 THEN IF B < 171 THEN BO = BO - 10: GOTO 2410
2370 IF B > 170 THEN IF A > 196 THEN BO = BO - 10: GOTO 2410
2380 IF B > 100 THEN IF B < 178 THEN DD = DD + 1: IF DD > 1 THEN LINE (1, 144)-(176, 159): LINE (0, 140)-(176, 156): PAINT (170, 157), 2, 3: SOUND 100, .1: SOUND 50, .9: PAINT (170, 157), 0, 3: LINE (1, 144)-(176, 159), 0: LINE (0, 140)-(176, 156),  _
0: PBP = 1: DD = 0
2390 IF PBP = 1 THEN IF B > 137 THEN IF B < 163 THEN IF A < 175 THEN POWER = POWER - 4: SOUND 250!, 3: PBP = 0
2400 PBP = 0: GOTO 1100
2410 CIRCLE (A, B), 16, 1: PAINT (A, B), 2, 1: CIRCLE (A, B), 10, 3: PAINT (A, B), 3, 3: SOUND 50!, 9: SOUND 55, .9: PAINT (A, B), 0, 1: CIRCLE (A, B), 16, 0: COLOR 7, 0: SOUND 50, .1: SOUND 55, .4: COLOR 0, 1: PPP3 = 0: CLS : L = L - 1: DR2 = 0:  _
BOMB = 0: GOTO 490
2420 IF BB > 154 THEN IF BA > 170 THEN IF BB < 171 THEN SOUND 3000, .9: B1 = 0: BA = 0: BO = BO - 1
2430 IF BB > 170 THEN IF BA > 206 THEN SOUND 3000, .9: B1 = 0: BA = 0: BO = BO - 1
2440 IF BB2 > 154 THEN IF BA2 > 170 THEN IF BB2 < 171 THEN SOUND 3000, .9: B2 = 0: BA2 = 0: BO = BO - 1
2450 IF BB2 > 170 THEN IF BA2 > 206 THEN SOUND 3000, .9: B2 = 0: BA2 = 0: BO = BO - 1
2460 IF BB3 > 154 THEN IF BA3 > 170 THEN IF BB3 < 171 THEN SOUND 3000, .9: B3 = 0: BA3 = 0: BO = BO - 1
2470 IF BB3 > 170 THEN IF BA3 > 206 THEN SOUND 3000, .9: B3 = 0: BA3 = 0: BO = BO - 1
2480 IF BB4 > 154 THEN IF BA4 > 170 THEN IF BB4 < 171 THEN SOUND 50!, 5: B4 = 0: BA4 = 0: BO = BO - 3
2490 IF BB4 > 170 THEN IF BA4 > 206 THEN SOUND 50!, 5: B4 = 0: BA4 = 0: BO = BO - 3
2500 GOTO 1960
2510 IF FC1 = 0 THEN IF A > 220 THEN FC1 = 1: FA1 = 250: FB1 = 150: SOUND 150, .3
2520 IF FC1 = 0 THEN IF A < 221 THEN IF A > 150 THEN FC1 = 3: FA1 = 250: FB1 = 150: SOUND 150, .3
2530 IF FC1 = 0 THEN IF A < 151 THEN FC1 = 2: FA1 = 250: FB1 = 150: SOUND 150, .3
2540 IF FC2 = 0 THEN IF A > 70 THEN FC2 = 1: FA2 = 223: FB2 = 150: SOUND 150, .3
2550 IF FC2 = 0 THEN IF A < 71 THEN FC2 = 2: FA2 = 223: FB2 = 150: SOUND 150, .3
2560 IF FC1 > 0 THEN CIRCLE (FA1, FB1), 0, 0
2570 IF FC2 > 0 THEN CIRCLE (FA2, FB2), 0, 0
2580 IF FC1 = 1 THEN FA1 = FA1 + 1: FB1 = FB1 - 7: FCC = FCC + 1: IF FCC > 18 THEN FC1 = 0: FCC = 0: GOTO 2510
2590 IF FC1 = 2 THEN FA1 = FA1 - 10: FB1 = FB1 - 5: FCC = FCC + 1: IF FCC > 24 THEN FC1 = 0: FCC = 0: GOTO 2510
2600 IF FC1 = 3 THEN FA1 = FA1 - 4: FB1 = FB1 - 9: FCC = FCC + 1: IF FCC > 15 THEN FC1 = 0: FCC = 0: GOTO 2520
2610 IF FC2 = 1 THEN FA2 = FA2 - 8: FB2 = FB2 - 7: FCT = FCT + 1: IF FCT > 17 THEN FC2 = 0: FCT = 0: GOTO 2540
2620 IF FC2 = 2 THEN FA2 = FA2 - 15: FB2 = FB2 - 3: FCT = FCT + 1: IF FCT > 24 THEN FC2 = 0: FCT = 0: GOTO 2540
2630 IF FA1 > A - 15 THEN IF FA1 < A + 15 THEN IF FB1 > B - 10 THEN IF FB1 < B + 10 THEN POWER = POWER - 2: FC1 = 0: SOUND 200, .9
2640 IF FA2 > A - 15 THEN IF FA2 < A + 15 THEN IF FB2 > B - 10 THEN IF FB2 < B + 10 THEN POWER = POWER - 2: FC2 = 0: SOUND 200, .9
2650 IF FC1 > 0 THEN CIRCLE (FA1, FB1), 0, 3
2660 IF FC2 > 0 THEN CIRCLE (FA2, FB2), 0, 3
2670 GOTO 1370
2680 GOTO 2690
2690 IF DR2 = 0 THEN DR2 = 1: GOTO 2710
2700 IF DR2 = 1 THEN GOTO 2750
2710 LINE (W1, W2 - 29)-(W1, W2 - 20)
2720 CIRCLE (W1, W2), 23
2730 LINE (W1 - 9, W2 + 22)-(W1 + 3, W2 + 15)
2740 LINE (W1 - 23, W2 + 16)-(W1 - 18, W2 + 13)
2750 IF B > W2 - 35 THEN IF B < W2 + 35 THEN CIRCLE (W1 - 8, W2 + 5), 11, 0: CIRCLE (W1 - 8, W2 - 5), 11, 0: CIRCLE (W1 - 8, W2), 11
2760 IF B > W2 + 34 THEN CIRCLE (W1 - 8, W2), 11, 0: CIRCLE (W1 - 8, W2 - 5), 11, 0: CIRCLE (W1 - 8, W2 + 5), 11
2770 IF B < W2 - 36 THEN CIRCLE (W1 - 8, W2), 11, 0: CIRCLE (W1 - 8, W2 + 5), 11, 0: CIRCLE (W1 - 8, W2 - 5), 11
2780 IF H = 0 THEN LINE (W1 - 36, W2 - 29)-(W1 + 20, W2 - 29), 0
2790 IF H = 0 THEN LINE (W1 - 20, W2 - 29)-(W1 + 36, W2 - 29), 3: H = 1: GOTO 2820
2800 IF H = 1 THEN LINE (W1 - 20, W2 - 29)-(W1 + 36, W2 - 29), 0
2810 IF H = 1 THEN LINE (W1 - 36, W2 - 29)-(W1 + 20, W2 - 29), 1: H = 0: GOTO 2820
2820 GOTO 800
2830 IF B > 61 THEN IF A > 238 THEN IF B < 127 THEN BO = BO - 10: DR2 = 0: GOTO 2410
2840 GOTO 1100
2850 IF WW1 > 0 THEN CIRCLE (FA1, FB1), 0, 0: CIRCLE (FA3, FB3), 0, 0
2860 IF WW2 > 0 THEN CIRCLE (FA2, FB2), 0, 0: CIRCLE (FA4, FB4), 0, 0
2870 IF WW1 = 0 THEN IF B < 150 THEN WW1 = 1: FA1 = W1 - 22: FB1 = W2 + 16: SOUND 170, .3: FA3 = FA1: FB3 = FB1
2880 IF WW1 = 0 THEN IF B > 149 THEN WW1 = 2: FA1 = W1 - 22: FB1 = W2 + 16: SOUND 170, .3: FA3 = FA1: FB3 = FB1
2890 IF WW2 = 0 THEN IF B < 150 THEN WW2 = 1: FA2 = W1 - 8: FB2 = W2 + 22: SOUND 170, .3: FA4 = FA2: FB4 = FB2
2900 IF WW2 = 0 THEN IF B > 149 THEN WW2 = 2: FA2 = W1 - 8: FB2 = W2 + 22: SOUND 170, .3: FA4 = FA2: FB4 = FB2
2910 IF WW1 = 1 THEN FA1 = FA1 - 9: HK = HK + 1: FA3 = FA3 - 7: FB3 = FB3 + 2: IF HK > 22 THEN HK = 0: WW1 = 0
2920 IF WW2 = 1 THEN FA2 = FA2 - 9: H8 = H8 + 1: FA4 = FA4 - 7: FB4 = FB4 + 1: IF H8 > 15 THEN H8 = 0: WW2 = 0
2930 IF WW1 = 2 THEN FA1 = FA1 - 15: FB1 = FB1 + 5: HK = HK + 1: FA3 = FA3 - 10: FB3 = FB3 + 5: IF HK > 13 THEN HK = 0: WW1 = 0
2940 IF WW2 = 2 THEN FA2 = FA2 - 7: FB2 = FB2 + 5: H8 = H8 + 1: FA4 = FA4 - .4: FB4 = FB4 + 5: IF H8 > 11 THEN H8 = 0: WW2 = 0
2950 IF FA1 > A - 15 THEN IF FA1 < A + 15 THEN IF FB1 > B - 10 THEN IF FB1 < B + 10 THEN WW1 = 0: HK = 0: POWER = POWER - 2: SOUND 200, .9
2960 IF FA2 > A - 15 THEN IF FA2 < A + 15 THEN IF FB2 > B - 10 THEN IF FB2 < B + 10 THEN WW2 = 0: HC = 0: POWER = POWER - 2: SOUND 200, .9
2970 IF FA4 > A - 15 THEN IF FA4 < A + 15 THEN IF FB4 > B - 10 THEN IF FB4 < B + 10 THEN WW2 = 0: HC = 0: POWER = POWER - 2: SOUND 200, .9
2980 IF FA3 > A - 15 THEN IF FA3 < A + 15 THEN IF FB3 > B - 10 THEN IF FB3 < B + 10 THEN WW1 = 0: HK = 0: POWER = POWER - 2: SOUND 200, .9
2990 IF WW1 > 0 THEN CIRCLE (FA1, FB1), 0, 2: CIRCLE (FA3, FB3), 0, 2
3000 IF WW2 > 0 THEN CIRCLE (FA2, FB2), 0, 1: CIRCLE (FA4, FB4), 0, 1
3010 IF WR3 > 0 THEN PAINT (FA5, FB5), 0, 3: CIRCLE (FA5, FB5), 2, 0
3020 IF WR4 > 0 THEN PAINT (FA6, FB6), 0, 3: CIRCLE (FA6, FB6), 2, 0
3030 IF WR5 > 0 THEN PAINT (FA7, FB7), 0, 3: CIRCLE (FA7, FB7), 2, 0
3040 IF WR3 = 0 THEN IF A < 262 THEN IF A > 5 THEN FA5 = 262: FB5 = 100: TY = (262 - A) / 6: TU = (100 - B) / 6: WR3 = 1: SOUND 500, .3
3050 IF WR4 = 0 THEN IF A < 262 THEN IF A > 5 THEN FA6 = 262: FB6 = 100: TY2 = (262 - A) / 5: TU2 = (100 - B) / 7: WR4 = 1: SOUND 500, .3
3060 IF WR5 = 0 THEN IF A < 262 THEN IF A > 5 THEN FA7 = 262: FB7 = 100: TY3 = (262 - A) / 9: TU3 = (100 - B) / 9: WR5 = 1: SOUND 500, .3
3070 IF WR3 > 0 THEN FA5 = FA5 - TY: FB5 = FB5 - TU
3080 IF WR4 > 0 THEN FA6 = FA6 - TY2: FB6 = FB6 - TU2
3090 IF WR5 > 0 THEN FA7 = FA7 - TY3: FB7 = FB7 - TU3
3100 IF FA5 < 0 OR FB5 < 15 OR FB5 > 187 THEN WR3 = 0
3110 IF FA6 < 0 OR FB6 < 15 OR FB6 > 187 THEN WR4 = 0
3120 IF FA7 < 0 OR FB7 < 15 OR FB7 > 187 THEN WR5 = 0
3130 IF FA5 > A - 15 THEN IF FA5 < A + 15 THEN IF FB5 > B - 10 THEN IF FB5 < B + 10 THEN WR3 = 0: FQ = 0: POWER = POWER - 3: SOUND 200, .9
3140 IF FA6 > A - 15 THEN IF FA6 < A + 15 THEN IF FB6 > B - 10 THEN IF FB6 < B + 10 THEN WR4 = 0: FQ = 0: POWER = POWER - 3: SOUND 200, .9
3150 IF FA7 > A - 15 THEN IF FA7 < A + 15 THEN IF FB7 > B - 10 THEN IF FB7 < B + 10 THEN WR5 = 0: FQ = 0: POWER = POWER - 3: SOUND 200, .9
3160 IF WR3 > 0 THEN CIRCLE (FA5, FB5), 2, 3: PAINT (FA5, FB5), 1, 3
3170 IF WR4 > 0 THEN CIRCLE (FA6, FB6), 2, 3: PAINT (FA6, FB6), 1, 3
3180 IF WR5 > 0 THEN CIRCLE (FA7, FB7), 2, 3: PAINT (FA7, FB7), 1, 3
3190 GOTO 1370
3200 IF BA > 246 THEN IF BA < 294 THEN IF BB > 80 THEN IF BB < 119 THEN B1 = 0: BA = 2: SOUND 4000, .4: BO = BO - 1
3210 IF BA2 > 246 THEN IF BA2 < 294 THEN IF BB2 > 80 THEN IF BB2 < 119 THEN B2 = 0: BA2 = 2: SOUND 4000, .4: BO = BO - 1
3220 IF BA3 > 246 THEN IF BA3 < 294 THEN IF BB3 > 80 THEN IF BB3 < 119 THEN B3 = 0: BA3 = 2: SOUND 4000, .4: BO = BO - 1
3230 IF BA4 > 246 THEN IF BA4 < 294 THEN IF BB4 > 80 THEN IF BB4 < 119 THEN B4 = 0: BA4 = 2: SOUND 50!, 5: BO = BO - 3
3240 GOTO 1960
3250 IF SCORE > 1000 THEN COLOR 4, 4: W1 = 283: W2 = 63: DX = 1
3260 IF SCORE > 1000 THEN SCORE = SCORE - 1001
3270 IF HEAD > 0 THEN CIRCLE (W1, W2), 7, 0, 29 * .19625, 18 * .19625: CIRCLE (W1 + 1, W2 + 1), 1, 0: CIRCLE (W1 - 5, W2 + 1), 1, 0: LINE (W1 - 7, W2 + 6)-(W1 - 7, W2 + 3), 0: LINE (W1 + 5, W2 + 3)-(W1 - 6, W2 + 7), 0
3280 IF HEAD = 0 THEN EH = EH + 1: IF EH > 119 THEN IF A > 5 THEN HEAD = 1: EH = 100: O1 = (W1 - A) / 12: O2 = (W2 - B) / 12: GOTO 3270
3290 IF HEAD = 1 THEN W1 = W1 - O1: W2 = W2 - O2: O3 = O3 + 1: IF O3 > 11 THEN HEAD = 3: O3 = 0
3300 IF HEAD = 2 THEN W1 = W1 + O1: W2 = W2 + O2: O3 = O3 + 1: IF O3 > 11 THEN HEAD = 0: O3 = 0: DR3 = 0: CIRCLE (285, 68), 12, 0, 4 * .19625, 12 * .19625: LINE (278, 71)-(276, 66), 0: CIRCLE (285, 61), 3, 0
3310 IF HEAD = 3 THEN O3 = O3 + 1: IF O3 > 9 THEN O3 = 0: HEAD = 2
3320 IF HEAD > 0 THEN CIRCLE (285, 68), 12, 3, 4 * .19625, 12 * .19625: LINE (278, 71)-(276, 66), 3: CIRCLE (285, 61), 3
3330 CIRCLE (W1, W2), 7, 3, 29 * .19625, 18 * .19625: CIRCLE (W1 + 1, W2 + 1), 1, 3: CIRCLE (W1 - 5, W2 + 1), 1, 3: LINE (W1 - 7, W2 + 6)-(W1 - 7, W2 + 3), 3: LINE (W1 + 5, W2 + 3)-(W1 - 6, W2 + 7), 3
3340 IF W1 > A - 15 THEN IF W1 < A + 15 THEN IF W2 > B - 10 THEN IF W2 < B + 10 THEN POWER = POWER - 100: BO = BO - 5
3350 IF A > 260 THEN IF B > 40 THEN IF B < 96 THEN POWER = POWER - 100
3360 IF HD = 0 THEN Z1 = 88: Z2 = 89: Z3 = 86: Z4 = 87: HD = 1: GOTO 3380
3370 IF HD = 1 THEN Z1 = 86: Z2 = 87: Z3 = 88: Z4 = 89: HD = 0: GOTO 3380
3380 IF DR3 = 0 THEN DR3 = 1: GOTO 3400
3390 IF DR3 = 1 THEN GOTO 3490
3400 CIRCLE (273, 64), 2, 3
3410 CIRCLE (297, 64), 2, 3
3420 CIRCLE (283, 77), 6, 3, 27 * .19625, 20 * .19625
3430 LINE (280, 48)-(277, 58)
3440 LINE (280, 46)-(282, 56)
3450 LINE (295, 61)-(302, 47)
3460 LINE (289, 58)-(302, 46)
3470 LINE (294, 66)-(289, 72)
3480 LINE (288, 72)-(279, 71)
3490 LINE (284, Z3)-(287, 81), 0: LINE (284, Z1)-(287, 81)
3500 LINE (283, Z4)-(279, 81), 0: LINE (283, Z2)-(279, 81)
3510 COLOR 0, 1
3520 GOTO 800
3530 IF CGA > 0 THEN CIRCLE (CGA1, CGA2), 1, 0
3540 IF CGB > 0 THEN CIRCLE (CGB1, CGB2), 1, 0
3550 IF CGC > 0 THEN CIRCLE (CGC1, CGC2), 1, 0
3560 IF CGD > 0 THEN PAINT (CGD1, CGD2), 0, 3: CIRCLE (CGD1, CGD2), 2, 0
3570 IF CGE > 0 THEN PAINT (CGE1, CGE2), 0, 3: CIRCLE (CGE1, CGE2), 2, 0
3580 IF CGA = 0 THEN IF A > 5 THEN CGA = 1: CGA1 = W1 + 1: CGA2 = W2 + 1: CGA3 = (CGA1 - A) / 6: CGA4 = (CGA2 - B) / 6: CGA = 1: SOUND 100, .5
3590 IF CGD = 0 THEN IF A > 5 THEN CGD = 1: CGD1 = 280: CGD2 = 46: CGD3 = (CGD1 - A) / 9: CGD4 = (CGD2 - B) / 9: CGD = 1: SOUND 500, .5
3600 IF CGD = 1 THEN CGD1 = CGD1 - CGD3: CGD2 = CGD2 - CGD4
3610 IF CGE = 0 THEN IF A > 5 THEN CGE = 1: CGE1 = 302: CGE2 = 46: CGE3 = (CGE1 - A) / 10: CGE4 = (CGE2 - B) / 10: CGE = 1: SOUND 500, .5
3620 IF CGE = 1 THEN CGE1 = CGE1 - CGE3: CGE2 = CGE2 - CGE4
3630 IF CGA = 1 THEN CGA1 = CGA1 - CGA3: CGA2 = CGA2 - CGA4
3640 IF CGB = 0 THEN IF A > 5 THEN CGB = 1: CGB1 = W1 - 5: CGB2 = W2 + 1: CGB3 = (CGB1 - A) / 8: CGB4 = (CGB2 - B) / 8: CGB = 1: SOUND 100, .5
3650 IF CGB = 1 THEN CGB1 = CGB1 - CGB3: CGB2 = CGB2 - CGB4
3660 IF CGC = 0 THEN IF A > 5 THEN CGC = 1: CGC1 = W1 - 5: CGC2 = W2 + 1: CGC3 = (CGC1 - A) / 10: CGC4 = (CGC2 - B) / 10: CGC = 1: SOUND 100, .9
3670 IF CGC = 1 THEN CGC1 = CGC1 - CGC3: CGC2 = CGC2 - CGC4
3680 IF CGD1 > A - 15 THEN IF CGD1 < A + 15 THEN IF CGD2 > B - 10 THEN IF CGD2 < B + 10 THEN POWER = POWER - 0: CGD = 0: SOUND 200, .9
3690 IF CGE1 > A - 15 THEN IF CGE1 < A + 15 THEN IF CGE2 > B - 10 THEN IF CGE2 < B + 10 THEN POWER = POWER - 0: CGE = 0: SOUND 200, .9
3700 IF CGA1 > 305 OR CGA1 < 0 OR CGA2 > 187 OR CGA2 < 15 THEN CGA = 0
3710 IF CGB1 > 305 OR CGB1 < 0 OR CGB2 > 187 OR CGB2 < 15 THEN CGB = 0
3720 IF CGC1 > 305 OR CGC1 < 0 OR CGC2 > 187 OR CGC2 < 15 THEN CGC = 0
3730 IF CGD1 > 305 OR CGD1 < 0 OR CGD2 > 187 OR CGD2 < 15 THEN CGD = 0
3740 IF CGE1 > 305 OR CGE1 < 0 OR CGE2 > 187 OR CGE2 < 15 THEN CGE = 0
3750 IF CGA1 > A - 15 THEN IF CGA1 < A + 15 THEN IF CGA2 > B - 10 THEN IF CGA2 < B + 10 THEN POWER = POWER - 1: CGA = 0: SOUND 200, .9
3760 IF CGB1 > A - 15 THEN IF CGB1 < A + 15 THEN IF CGB2 > B - 10 THEN IF CGB2 < B + 10 THEN POWER = POWER - 1: CGB = 0: SOUND 200, .9
3770 IF CGC1 > A - 15 THEN IF CGC1 < A + 15 THEN IF CGC2 > B - 10 THEN IF CGC2 < B + 10 THEN POWER = POWER - 1: CGC = 0: SOUND 200, .9
3780 IF CGD1 > A - 15 THEN IF CGD1 < A + 15 THEN IF CGD2 > B - 10 THEN IF CGD2 < B + 10 THEN POWER = POWER - 3: CGD = 0: SOUND 200, .9
3790 IF CGE1 > A - 15 THEN IF CGE1 < A + 15 THEN IF CGE2 > B - 10 THEN IF CGE2 < B + 10 THEN POWER = POWER - 3: CGE = 0: SOUND 200, .9
3800 IF CGD > 0 THEN CIRCLE (CGD1, CGD2), 2, 3: PAINT (CGD1, CGD2), 1, 3
3810 IF CGE > 0 THEN CIRCLE (CGE1, CGE2), 2, 3: PAINT (CGE1, CGE2), 1, 3
3820 IF CGA > 0 THEN CIRCLE (CGA1, CGA2), 1, 3
3830 IF CGB > 0 THEN CIRCLE (CGB1, CGB2), 1, 2
3840 IF CGC > 0 THEN CIRCLE (CGC1, CGC2), 1, 1
3850 IF CGD > 0 THEN CIRCLE (CGD1, CGD2), 1, 1
3860 IF CGE > 0 THEN CIRCLE (CGE1, CGE2), 1, 1
3870 IF BA > W1 - 10 THEN IF BA < W1 + 10 THEN IF BB > W2 - 10 THEN IF BB < W2 + 10 THEN B1 = 0: BA = 2: SOUND 4000, .4: BO = BO - 1
3880 IF BA2 > W1 - 10 THEN IF BA2 < W1 + 10 THEN IF BB2 > W2 - 10 THEN IF BB2 < W2 + 10 THEN B2 = 0: BA2 = 2: SOUND 4000, .4: BO = BO - 1
3890 IF BA3 > W1 - 10 THEN IF BA3 < W1 + 10 THEN IF BB3 > W2 - 10 THEN IF BB3 < W2 + 10 THEN B3 = 0: BA3 = 2: SOUND 4000, .4: BO = BO - 1
3900 IF BA4 > W1 - 10 THEN IF BA4 < W1 + 10 THEN IF BB4 > W2 - 10 THEN IF BB4 < W2 + 10 THEN B4 = 0: BA4 = 2: SOUND 50!, 5: BO = BO - 3
3910 IF BB2 > 46 THEN IF BB2 < 81 THEN IF BA2 > 272 THEN GOTO 3960
3920 IF BB4 > 46 THEN IF BB4 < 81 THEN IF BA4 > 272 THEN GOTO 3980
3930 IF BB3 > 46 THEN IF BB3 < 81 THEN IF BA3 > 272 THEN GOTO 4000
3940 IF BB > 46 THEN IF BB < 81 THEN IF BA > 272 THEN GOTO 4020
3950 GOTO 1960
3960 IF BA2 > 293 THEN IF BB2 > 68 THEN GOTO 1960
3970 B2 = 0: BA2 = 2: SOUND 7000, .9: GOTO 1960
3980 IF BA4 > 293 THEN IF BB4 > 68 THEN GOTO 1960
3990 B4 = 0: BA4 = 2: SOUND 7000, .9: GOTO 1960
4000 IF BA3 > 293 THEN IF BB3 > 68 THEN GOTO 1960
4010 B3 = 0: BA3 = 2: SOUND 7000, .9: GOTO 1960
4020 IF BA > 293 THEN IF BB > 68 THEN GOTO 1960
4030 B1 = 0: BA = 2: SOUND 7000, .9: GOTO 1960
4040 IF DR4 = 1 THEN 4200
4050 DR4 = 1
4060 CIRCLE (258, 63), 61, 2, 28 * .19625, 16 * .19625
4070 CIRCLE (171, 78), 32, 2, 28 * .19625, 3 * .19625
4080 CIRCLE (254, 73), 19, 2, 28 * .19625, 5 * .19625
4090 CIRCLE (224, -26), 110, 2, 24 * .19625, 26 * .19625
4100 CIRCLE (247, -4), 110, 2, 23 * .19625, 25 * .19625
4110 CIRCLE (181, 80), 45, 2, 31 * .19625, 2 * .19625
4120 CIRCLE (183, 149), 63, 2, 6 * .19625, 7 * .19625
4130 LINE (198, 96)-(207, 95), 2
4140 CIRCLE (299, 74), 17, 2, 28 * .19625, 13 * .19625
4150 CIRCLE (296, 85), 14, 2, 20 * .19625, 0 * .19625
4160 CIRCLE (97, 116), 108, 2, 31 * .19625, 1 * .19625
4170 CIRCLE (218, 129), 16, 2, 18 * .19625, 27 * .19625
4180 CIRCLE (206, 49), 111, 2, 25 * .19625, 29 * .19625
4190 CIRCLE (240, 183), 69, 2, 2 * .19625, 6 * .19625
4200 CIRCLE (217, 116), MORTH, 0, 5 * .19625, 13 * .19625
4210 IF ZQ > 4 THEN ZQ = 0: MORTH = MORTH + 1
4220 CIRCLE (217, 116), MORTH, 2, 5 * .19625, 13 * .19625
4230 IF EYE > 0 THEN CIRCLE (W1, W2), 12, 0
4240 IF EYE = 1 THEN IF W1 < A THEN W1 = W1 + 2: IF W1 > 183 THEN IF W2 < 153 THEN W1 = W1 - 15
4250 IF EYE = 1 AND W1 < A AND BO < 10 THEN W1 = W1 + 1.3
4260 IF EYE = 1 THEN IF W1 > A THEN W1 = W1 - 2: IF W1 > 183 THEN W1 = W1 - 30
4270 IF EYE = 1 AND W1 > A AND BO < 10 THEN W1 = W1 - 1.3
4280 IF EYE = 1 THEN IF W2 > B THEN W2 = W2 - 2
4290 IF EYE = 1 AND W2 > B AND BO < 10 THEN W2 = W2 - 1.3
4300 IF EYE = 1 THEN IF W2 < B THEN W2 = W2 + 2
4310 IF EYE = 1 AND W2 < B AND BO < 10 THEN W2 = W2 + 1.3
4320 IF EYE = 0 THEN EYT = EYT + 1: IF EYT > 9 THEN EYE = 1: EYT = 0
4330 IF EYE = 1 THEN EYEE = EYEE + 1: IF EYEE > 90 THEN EYEE = 0: EYE = 2
4340 IF EYE = 2 THEN W11 = (W1 - 239) / 10: W22 = (W2 - 76) / 10: EYE = 3
4350 IF EYE = 3 THEN W1 = W1 - W11: W2 = W2 - W22: EYTT = EYTT + 1: IF EYTT > 9 THEN EYTT = 0: EYE = 0
4360 IF W2 > 170 THEN W2 = 170
4370 IF W1 < 17 THEN W1 = 17
4380 CIRCLE (W1, W2), 12, 1
4390 IF W1 > A - 25 AND W1 < A + 25 AND W2 > B - 17 AND W2 < B + 17 THEN CIRCLE (W1, W2), 12, 2: PAINT (W1, W2), 3, 2: DR4 = 0: EYE = 2: EYEE = 0: GOTO 2410
4400 IF A > 182 AND B < 153 THEN DR4 = 0: GOTO 2410
4410 IF EYE = 1 THEN IF W1 > 182 AND A < W1 THEN DR4 = 0
4420 IF BA > 188 AND BB < 149 THEN SOUND 70, .9: B1 = 0: CIRCLE (BA, BB), 1, 0: BA = 12: BO = BO - 1: ZQ = ZQ + 1
4430 IF BA4 > 188 AND BB4 < 149 THEN SOUND 50!, 5: B4 = 0: CIRCLE (BA4, BB4), 0, 0: BA4 = 12: BO = BO - 3: ZQ = ZQ + 3
4440 IF BA > W1 - 12 AND BA < W1 + 12 AND BB > W2 - 12 AND BB < W2 + 12 THEN SOUND 600, .3: SOUND 300, .3: B1 = 0: CIRCLE (BA, BB), 1, 0: BA = 12
4450 IF BA4 > W1 - 12 AND BA4 < W1 + 12 AND BB4 > W2 - 12 AND BB4 < W2 + 12 THEN SOUND 700, .3: SOUND 200, .3: B4 = 0: CIRCLE (BA4, BB4), 0, 0: BA4 = 12
4460 IF BA2 > 188 AND BB2 < 149 THEN SOUND 70, .9: B2 = 0: CIRCLE (BA2, BB2), 1, 0: BA2 = 12: BO = BO - 1: ZQ = ZQ + 1
4470 IF BA2 > W1 - 12 AND BA2 < W1 + 12 AND BB2 > W2 - 12 AND BB2 < W2 + 12 THEN SOUND 600, .3: SOUND 300, .3: B2 = 0: CIRCLE (BA2, BB2), 1, 0: BA2 = 1
4480 IF BA3 > 188 AND BB3 < 149 THEN SOUND 70, .9: B3 = 0: CIRCLE (BA3, BB3), 1, 0: BA3 = 12: BO = BO - 1: ZQ = ZQ + 1
4490 IF BA3 > W1 - 12 AND BA3 < W1 + 12 AND BB3 > W2 - 12 AND BB3 < W2 + 12 THEN SOUND 600, .3: SOUND 300, .3: B3 = 0: CIRCLE (BA3, BB3), 1, 0: BA3 = 12
4500 GOTO 800
4510 IF DR4 = 1 THEN 4670
4520 DR4 = 1
4530 CIRCLE (128, 91), 81, 2, 31 * .19625, 2 * .19625
4540 CIRCLE (253, 70), 11, 2, 0 * .19625, 32 * .19625
4550 CIRCLE (212, 87), 14, 2, 2 * .19625, 5 * .19625
4560 CIRCLE (242, 91), 27, 2, 13 * .19625, 14 * .19625
4570 CIRCLE (248, 47), 72, 2, 21 * .19625, 23 * .19625
4580 CIRCLE (347, 196), 147, 2, 10 * .19625, 12 * .19625
4590 CIRCLE (239, 35), 91, 2, 22 * .19625, 24 * .19625
4600 CIRCLE (253, 60), 50, 2, 29 * .19625, 18 * .19625
4610 LINE (204, 68)-(209, 88), 2
4620 LINE (217, 84)-(225, 86), 2
4630 LINE (212, 105)-(214, 100), 2
4640 LINE (219, 108)-(221, 104), 2
4650 LINE (228, 105)-(229, 110), 2
4660 LINE (237, 107)-(238, 112), 2
4670 IF BONE = 2 THEN IF B > 83 THEN IF B < 155 THEN BONE = 1
4680 IF BONE = 3 THEN RER = RER + 1: IF RER > 10 THEN BONE = 0: RER = 0
4690 IF BONE = 2 THEN 770
4700 IF BONE = 3 THEN 770
4710 IF BONE = 0 THEN V = 2: Q = 0: GOTO 4800
4720 IF BONE = 1 THEN V = 0: Q = 2
4730 CIRCLE (250, 116), 10, V, 23 * .19625, 32 * .19625
4740 CIRCLE (348, 142), 93, V, 12 * .19625, 14 * .19625
4750 CIRCLE (259, 114), 53, V, 15 * .19625, 17 * .19625
4760 LINE (208, 122)-(247, 125), V
4770 IF BONE = 0 THEN BONE = 2: GOTO 770
4780 IF BONE = 1 THEN GOTO 4800
4790 GOTO 770
4800 CIRCLE (241, 95), 54, Q, 21 * .19625, 26 * .19625
4810 CIRCLE (273, 122), 63, Q, 16 * .19625, 17 * .19625
4820 CIRCLE (297, 120), 45, Q, 13 * .19625, 16 * .19625
4830 CIRCLE (225, 63), 72, Q, 23 * .19625, 26 * .19625
4840 CIRCLE (225, 62), 72, Q, 23 * .19625, 26 * .19625
4850 CIRCLE (343, 136), 83, Q, 12 * .19625, 16 * .19625
4860 IF BONE = 0 THEN 4730
4870 IF BONE = 1 THEN BONE = 3: GOTO 770
4880 GOTO 770
4890 IF A > 280 THEN IF B > 93 THEN 4920
4900 IF A > 189 THEN IF B < 130 THEN IF BONE = 0 OR BONE = 2 THEN POWER = POWER - 100: BONE = 0: RER = 0
4910 IF A > 189 THEN IF B < 146 THEN IF BONE = 1 OR BONE = 3 THEN POWER = POWER - 100: BONE = 0: RER = 0
4920 IF BONE = 1 OR BONE = 3 THEN IF BA > 199 THEN IF BB > 108 THEN IF BB < 121 THEN IF BA < 252 THEN SOUND 50, .9: BO = BO - 1: CIRCLE (BA, BB), 1, 0: B1 = 0: BA = 0
4930 IF BONE = 1 OR BONE = 3 THEN IF BA2 > 199 THEN IF BB2 > 108 THEN IF BB2 < 121 THEN IF BA2 < 252 THEN SOUND 50, .9: BO = BO - 1: CIRCLE (BA2, BB2), 1, 0: B2 = 0: BA2 = 0
4940 IF BONE = 1 OR BONE = 3 THEN IF BA3 > 199 THEN IF BB3 > 108 THEN IF BB3 < 121 THEN IF BA3 < 252 THEN SOUND 50, .9: BO = BO - 1: CIRCLE (BA3, BB3), 1, 0: B3 = 0: BA3 = 0
4950 IF BONE = 1 OR BONE = 3 THEN IF BA4 > 199 THEN IF BB4 > 108 THEN IF BB4 < 121 THEN IF BA4 < 252 THEN SOUND 50!, 5: BO = BO - 3: CIRCLE (BA4, BB4), 0, 0: B4 = 0: BA4 = 0
4960 IF BA > 199 THEN IF BB < 138 THEN IF BONE = 1 OR BONE = 3 THEN SOUND 5000, .5: CIRCLE (BA, BB), 1, 0: BA = 12: B1 = 0
4970 IF BA > 199 THEN IF BB < 130 THEN IF BONE = 2 OR BONE = 4 THEN SOUND 5000, .5: CIRCLE (BA, BB), 1, 0: BA = 12: B1 = 0
4980 IF BA2 > 199 THEN IF BB2 < 138 THEN IF BONE = 1 OR BONE = 3 THEN SOUND 5000, .5: CIRCLE (BA2, BB2), 1, 0: BA2 = 12: B2 = 0
4990 IF BA2 > 199 THEN IF BB2 < 130 THEN IF BONE = 2 OR BONE = 4 THEN SOUND 5000, .5: CIRCLE (BA2, BB2), 1, 0: BA2 = 12: B2 = 0
5000 IF BA3 > 199 THEN IF BB3 < 130 THEN IF BONE = 1 OR BONE = 3 THEN SOUND 5000, .5: CIRCLE (BA3, BB3), 1, 0: BA3 = 12: B3 = 0
5010 IF BA3 > 199 THEN IF BB3 < 130 THEN IF BONE = 2 OR BONE = 4 THEN SOUND 5000, .5: CIRCLE (BA3, BB3), 1, 0: BA3 = 12: B3 = 0
5020 IF BA4 > 199 THEN IF BB4 < 138 THEN IF BONE = 1 OR BONE = 3 THEN SOUND 5000, .5: CIRCLE (BA4, BB4), 0, 0: BA4 = 12: B4 = 0
5030 IF BA4 > 199 THEN IF BB4 < 130 THEN IF BONE = 2 OR BONE = 4 THEN SOUND 5000, .5: CIRCLE (BA4, BB4), 0, 0: BA4 = 12: B4 = 0
5040 IF BOMB = 1 THEN PAINT (XA, XB), 0, 1: CIRCLE (XA, XB), XC, 0
5050 IF RER = 0 THEN IF BONE = 3 THEN XA = 199: XB = 105: BOMB = 1: XC = 5
5060 IF BOMB = 1 THEN XA = XA - 18: XC = XC + 3: IF XA < 50 THEN BOMB = 0
5070 IF BOMB = 1 THEN CIRCLE (XA, XB), XC, 1: PAINT (XA, XB), 2, 1: CIRCLE (XA, XB), XC - 4, 3: PAINT (XA, XB), 3, 3
5080 IF BOMB = 1 THEN IF A > XA - XC - 14 THEN IF A < XA + XC + 14 THEN IF B > XB - XC - 9 THEN IF B < XB + XC + 9 THEN DR4 = 0: RER = 1: BONE = 0: RER = 0: GOTO 2410
5090 IF BOMB = 1 THEN IF BA > XA - XC - 5 THEN IF BA < XA + XC + 5 THEN IF BB > XB - XC - 5 THEN IF BB < XB + XC + 5 THEN CIRCLE (BA, BB), 1, 0: B1 = 0: BA = 12: SOUND 50!, 5
5100 IF BOMB = 1 THEN IF BA2 > XA - XC - 5 THEN IF BA2 < XA + XC + 5 THEN IF BB2 > XB - XC - 5 THEN IF BB2 < XB + XC + 5 THEN CIRCLE (BA2, BB2), 1, 0: B2 = 0: BA2 = 12: SOUND 50!, 5
5110 IF BOMB = 1 THEN IF BA3 > XA - XC - 5 THEN IF BA3 < XA + XC + 5 THEN IF BB3 > XB - XC - 5 THEN IF BB3 < XB + XC + 5 THEN CIRCLE (BA3, BB3), 1, 0: B3 = 0: BA3 = 12: SOUND 50!, 5
5120 IF BOMB = 1 THEN IF BA4 > XA - XC - 9 THEN IF BA4 < XA + XC + 9 THEN IF BB4 > XB - XC - 9 THEN IF BB4 < XB + XC + 9 THEN CIRCLE (BA4, BB4), 0, 0: B4 = 0: BA4 = 12: SOUND 50!, 5
5130 GOTO 800
5140 DR = 0: GOA = 50: GOB = 60: GO = 1: COLOR 5, 0
5150 IF GOB > 50 THEN GOA = GOA + 3
5160 IF GOB > 100 THEN GOA = GOA + 3
5170 IF GOB > 150 THEN GOA = GOA + 3
5180 IF GOA > 350 THEN LOCATE 16, 17: PRINT "GAME OVER": PLAY "DDCD": SCORE = 0: DX = 0: DR = 0: DR2 = 0: DR3 = 0: DR4 = 0: BO = 30: GOTO 110
5190 CIRCLE (GOA + 32, GOB - 15), 48, GO, 12 * .19625, 16 * .19625
5200 CIRCLE (GOA - 2, GOB - 22), 26, GO, 30 * .19625, 18 * .19625
5210 CIRCLE (GOA - 33, GOB - 15), 48, GO, 32 * .19625, 4 * .19625
5220 CIRCLE (GOA, GOB - 6), 18, GO, 4 * .19625, 13 * .19625
5230 CIRCLE (GOA - 21, GOB - 12), 4, GO, 3 * .19625, 14 * .19625
5240 CIRCLE (GOA + 20, GOB - 13), 4, GO, 5 * .19625, 15 * .19625
5250 CIRCLE (GOA + 1, GOB + 7), 2, GO, 12 * .19625, 10 * .19625
5260 LINE (GOA - 15, GOB - 13)-(GOA - 4, GOB + 8), GO
5270 LINE (GOA + 15, GOB - 13)-(GOA + 5, GOB + 8), GO
5280 LINE (GOA - 4, GOB + 8)-(GOA - 25, GOB - 13), GO
5290 LINE (GOA + 22, GOB - 13)-(GOA + 5, GOB + 8), GO
5300 LINE (GOA - 2, GOB + 15)-(GOA - 5, GOB + 10), GO
5310 LINE (GOA + 6, GOB + 10)-(GOA + 4, GOB + 15), GO
5320 CIRCLE (GOA, GOB + 1), 13, GO, 27 * .19625, 31 * .19625
5330 CIRCLE (GOA, GOB - 1), 13, GO, 27 * .19625, 31 * .19625
5340 CIRCLE (GOA, GOB), 13, GO, 17 * .19625, 22 * .19625
5350 CIRCLE (GOA, GOB - 2), 13, GO, 17 * .19625, 22 * .19625
5360 LINE (GOA - 7, GOB + 30)-(GOA - 2, GOB + 16), GO
5370 LINE (GOA + 8, GOB + 30)-(GOA + 4, GOB + 16), GO
5380 LINE (GOA - 7, GOB + 31)-(GOA + 1, GOB + 18), GO
5390 LINE (GOA + 8, GOB + 31)-(GOA + 1, GOB + 19), GO
5400 IF CON = 0 THEN GOTO 5420
5410 IF A$ = " " THEN A$ = "0": GOTO 5490
5420 A$ = INKEY$
5430 IF A$ = "Q" THEN CLS : SCREEN 0: END
5440 IF GO = 0 THEN GO = 1: GOA = GOA + 2: GOB = GOB + 3: SOUND 100, .4: GOTO 5150
5450 IF CON = 0 THEN IF A$ = " " THEN LOCATE 15, 16: PRINT "CONTINUE: 0": SOUND 129!, 9: SOUND 39, .5: LOCATE 15, 16: PRINT "           "
5460 IF CON = 0 THEN GOTO 5480
5470 IF A$ = " " THEN A$ = "0": GOTO 5490
5480 IF GO = 1 THEN GO = 0: SOUND 37, .4: GOTO 5190
5490 CON = CON - 1
5500 LOCATE 16, 15: PRINT "CONTINUE:"; CON
5510 G$ = INPUT$(1)
5520 IF SCORE < 1000 THEN BO = 30: DR = 0: GOTO 110
5530 IF SCORE > 1000 THEN BO = 40: DR2 = 0: GOTO 110
5540 IF DX = 1 THEN BO = 40: DR3 = 0: GOTO 110
5550 IF DX = 2 THEN BO = 40: DR4 = 0: GOTO 110
5560 IF DX = 3 THEN BO = 30: DR4 = 0: GOTO 110
5570 TE = 1: GOTO 5590
5580 SCREEN 1: SOUND 50!, 9: SOUND 50!, 9: SOUND 70!, 1: SOUND 55!, 1: COLOR 7, 0: SOUND 50!, 1: SOUND 55!, 4: COLOR 0, 1
5590 COLOR 8, 1: LINE (0, 128)-(319, 128), 2
5600 CIRCLE (153, -37), 168, 2, 23 * .19625, 25 * .19625
5610 CIRCLE (153, 102), 8, 2, 32 * .19625, 17 * .19625
5620 LINE (181, 100)-(162, 100), 2
5630 LINE (144, 100)-(125, 100), 2
5640 LINE (144, 92)-(144, 102), 2
5650 LINE (162, 92)-(162, 102), 2
5660 CIRCLE (153, 127), 85, 2, 0, 3.14
5670 PAINT (120, 127), 3, 2
5680 PAINT (153, 102), 1, 3
5690 CIRCLE (153, 127), 105, 2, 0, 3.14
5700 PAINT (153, 44), 2, 2: A$ = INPUT$(1)
5710 COLOR 7, 1: SOUND 50!, 9: SOUND 70!, 1: SOUND 55!, 1: COLOR 7, 0: SOUND 50!, 1: CLS : SOUND 55!, 4: COLOR 0, 1
5720 GOTO 90