Meteor Shower (Atari 8 Bit) by Claus Buchholz

1 GRAPHICS 24:COLOR 1:SETCOLOR 2,0,0
2 FOR I=0 TO 99
3 X=RND(0)*318:Y=RND(0)*191:PLOT X,Y
4 IF RND(0)<0.1 THEN PLOT X+1,Y
5 NEXT I
6 IF RND(0)>2.0E-03 THEN GOTO 6
7 X=RND(0)*191+64:Y=RND(0)*191
8 COLOR 1:PLOT 159,95
9 DRAWTO X,Y:COLOR 0:PLOT 159,95
10 DRAWTO X,Y:GOTO 6

Sit back and watch the meteor shower.

Claus Buchholz

AtariAge: ClausB