CLS
SCREEN 9
RANDOMIZE TIMER
1
CLS
FOR i = 1 TO 2000
COLOR s
a = INT(RND * 630)
b = INT(RND * 630)
c = INT(RND * 630)
d = INT(RND * 630)
s = INT(RND * 10)
LINE (a, b)-(c, d)
FOR x = 1 TO 100
NEXT x
NEXT i
GOTO 1