a2SetClip 100, 100, screen width() - 100, screen height() - 100
for a = 1 to 1000
x1 = rnd(screen width())
y1 = rnd(screen height())
x2 = rnd(screen width())
y2 = rnd(screen height())
color1 = rgb(rnd(255), rnd(255), rnd(255))
color2 = rgb(rnd(255), rnd(255), rnd(255))
a2Line x1, y1, x2, y2, color1, color2
next a
rem Reset the clipping area
a2ResetClip
for a = 1 to 100
x1 = rnd(screen width())
y1 = rnd(screen height())
color = rgb(rnd(255), rnd(255), rnd(255))
a2Circle x1, y1, 50, color
next a
WAIT KEY