10 CLS
20 LINE (320,100) -(RND*640,RND*200),RND*14 + 1
_delay 0.00125
30 GOTO 20