CLS
SCREEN 12
ax = 320
ay = 460
magx = 200
FOR rot = 0 TO 3.14159 * 70 STEP .001
LINE (ax + 60 * COS(magx) * COS(rot), ay + 1 * SIN(rot))-(ax + 60 * COS(magx) * COS(rot), ay + 1 * SIN(rot)), INT(RND * 16) + 1
ay = ay - .04
magx = magx + 4
NEXT rot