SCREEN 13
FOR q = 1 TO 1600
c = q / 5
LINE (RND * c, RND * c)-(RND * c, RND * c), 13
NEXT q
DEF SEG = &HA000
BSAVE "c:\test1.bsv", 0, 64000
DEF SEG = &HA000
SLEEP
CLS
SLEEP
BLOAD "c:\test1.bsv", 0
SLEEP
KILL "c:\test1.bsv"