CLS
SCREEN 9
CIRCLE (300, 200), 40
PAINT (300, 200)
LOCATE 1, 29
PRINT "Earth Go BOOM!!!"
SLEEP 3
RANDOMIZE TIMER
g = INT(RND * 600)
d = 1
s = INT(RND * 400)
FOR a = 1 TO 500
c = INT(RND * 10)
COLOR c
CIRCLE (300, 200), d
d = d + 1
FOR k = 1 TO 100
NEXT k
NEXT a
FOR t = 1 TO 500
COLOR 0, 0
CIRCLE (300, 200), e
e = e + 1
i = INT(RND * 635)
n = INT(RND * 345)
COLOR 15, 0
PSET (i, n)
NEXT t