randomize 100
do
for x=0 to 100000000
dot rnd(x),rnd(x)
line rnd(x),rnd(x),rnd(x),rnd(x)
circle rnd(x),rnd(x),rnd(x)
box rnd(x),rnd(x),rnd(x),rnd(x)
if timer()=90 then cls
next x
if returnkey()=1 then end
loop