z% = 15
80
CLS
IF z% <> 0 THEN COLOR z% ELSE COLOR (z% + 1)
PRINT "Press Esc to exit"
g = 0
83
RANDOMIZE TIMER
IF INKEY$ = CHR$(27) GOTO 91
84
o% = INT(RND * 23) + 1
p% = INT(RND * 78) + 2
q% = CINT(RND * 15) + 1
IF o% <= 2 THEN GOTO 85
IF q% = 7 THEN z% = 1: GOTO 86
IF q% = 6 THEN z% = 4: GOTO 86
IF q% = 5 THEN z% = 7: GOTO 86
IF q% = 4 THEN z% = 12: GOTO 86
IF q% = 3 THEN z% = 14: GOTO 86
IF q% = 2 THEN z% = 15: GOTO 86
IF q% = 1 THEN z% = 15 ELSE z% = 0: GOTO 86
85
IF p% <= 18 GOTO 84
86
LOCATE o%, p%
COLOR z%
87
w% = CINT(RND * 75) + 1
IF w% < 15 THEN y% = 4: GOTO 88
IF w% < 30 THEN y% = 15: GOTO 88
IF w% < 45 THEN y% = 42: GOTO 88
IF w% < 60 THEN y% = 248: GOTO 88
IF w% < 75 THEN y% = 249: GOTO 88
IF w% = 76 THEN y% = 197: GOTO 88
IF q% <> 0 GOTO 88 ELSE GOTO 89
88
d = CINT(RND * 16) + 1
IF d = 6 GOTO 89 ELSE GOTO 90
89
PRINT CHR$(y%)
90
g = g + 1
IF g >= 7500 GOTO 80 ELSE GOTO 83
91
COLOR 15