y = 10
80
CLS
COLOR (y + 1)
PRINT "Press Esc to exit"
81
t = 0: g = 0: n = 0: l = l + 1
IF l = 2 THEN l = 0
IF l = 1 THEN m = 1 ELSE m = 0
IF m = 1 THEN z = 1 ELSE z = 9
IF z = 1 THEN y = 2 ELSE y = 10
82
SCREEN 9
CIRCLE (320, 175), 120, z
PAINT (320, 175), z, z
CIRCLE (320, 175), 120, y, 12 / 12, 7 / 3
LINE (320, 175)-(385, 101), y
LINE (320, 175)-(237, 118), y
LINE (237, 118)-(237, 111), y
PAINT (315, 165), y, y
LINE (260, 170)-(255, 130), y
LINE (260, 170)-(300, 200), y
LINE (300, 200)-(305, 200), y
LINE (270, 170)-(305, 200), y
LINE (270, 170)-(275, 170), y
LINE (275, 170)-(325, 210), y
LINE (325, 210)-(335, 210), y
CIRCLE (363, 225), 35, y
PAINT (363, 225), y, y
LINE (345, 207)-(320, 200), y
LINE (320, 200)-(322, 180), y
LINE (322, 180)-(337, 180), y
LINE (337, 180)-(347, 190), y
LINE (347, 190)-(350, 192), y
LINE (350, 192)-(353, 188), y
LINE (353, 188)-(345, 177), y
LINE (345, 177)-(351, 160), y
LINE (351, 160)-(355, 100), y
PAINT (320, 177), y, y
LINE (337, 225)-(349, 260), y
LINE (399, 225)-(393, 245), y
CIRCLE (320, 175), 120, y, 119 / 24, 43 / 8
PAINT (350, 254), y, y
83
RANDOMIZE TIMER
IF INKEY$ = CHR$(27) GOTO 93
84
o% = INT(RND * 23) + 1
p% = INT(RND * 78) + 2
q% = CINT(RND * 15) + 1
IF q% = 7 THEN z% = 1: GOTO 85
IF q% = 6 THEN z% = 4: GOTO 85
IF q% = 5 THEN z% = 7: GOTO 85
IF q% = 4 THEN z% = 12: GOTO 85
IF q% = 3 THEN z% = 14: GOTO 85
IF q% = 2 THEN z% = 15: GOTO 85
IF q% = 1 THEN z% = 15 ELSE z% = 0
85
IF o% <= 2 THEN GOTO 86 ELSE GOTO 87
86
IF p% <= 18 GOTO 84 ELSE GOTO 88
87
IF o% < 7 GOTO 88
IF o% > 19 GOTO 88
IF p% < 23 GOTO 88
IF p% > 57 GOTO 88 ELSE GOTO 84
88
LOCATE o%, p%
COLOR z%
89
w% = CINT(RND * 75) + 1
IF w% < 15 THEN y% = 4: GOTO 90
IF w% < 30 THEN y% = 15: GOTO 90
IF w% < 45 THEN y% = 42: GOTO 90
IF w% < 60 THEN y% = 248: GOTO 90
IF w% < 75 THEN y% = 249: GOTO 90
IF w% = 76 THEN y% = 197: GOTO 90
IF q% <> 0 GOTO 88 ELSE GOTO 90
90
d = CINT(RND * 20) + 1
IF d = 6 GOTO 91 ELSE GOTO 92
91
PRINT CHR$(y%)
92
g = g + 1
IF g >= 7500 GOTO 80 ELSE GOTO 83
93
COLOR 15