10 SCREEN 12: CLS : CLEAR
15 RANDOMIZE TIMER
20 x = INT(RND * 640): y = INT(RND * 480)
30 c = INT(RND * 20): IF c > 15 THEN c = 0
40 PSET (x, y), c
42 FOR z = 0 TO 150
45 k$ = INKEY$: IF k$ > "" THEN 100
47 NEXT z
50 mx = (INT(RND * 800) / 200) - 2: x = x + mx
60 my = (INT(RND * 800) / 200) - 2: y = y + my
70 IF x < 0 OR x > 640 THEN 20
80 IF y < 0 OR y > 480 THEN 20
90 GOTO 30
100 k$ = INKEY$: IF k$ = "" THEN 100
110 IF k$ = CHR$(13) THEN 50
115 IF k$ = "0" THEN 10
120 END