CLS
SCREEN 9
DO
FOR a = 0 TO 300
FOR x = 0 TO 200
RANDOMIZE TIMER
LINE (a, x)-(300, x), (RND * 12)
NEXT x
NEXT a
LOOP WHILE INKEY$ = ""