CLS
SCREEN 12
ax = 320
ay = 240
magcos = 60
magsin = 40
top = 0
DO
FOR rot = 0 TO 6.283 STEP .4
LINE (ax + magcos * COS(rot), ay + magsin * SIN(rot))-(ax, ay - top), INT(RND * 6)
NEXT rot
magsin = magsin - .5
magcos = magcos - .5
top = top + 5
PRINT ""

LOOP UNTIL magcos = 0