SCREEN 12
FOR I% = 0 TO 0
FOR J% = 0 TO 640
LINE (0, 480)-(J%, I%), INT(RND * 15)
LINE (640, 480)-(J%, I%), INT(RND * 15)
NEXT J%:  NEXT I%