CLS
 SCREEN 9
 DO
 FOR i = 0 TO 680
 FOR u = 300 TO 480
 RANDOMIZE TIMER
 PSET (RND * i, RND * u), (RND * 15)
 NEXT u
 NEXT i
 LOOP WHILE INKEY$ = ""