set display mode 800,600,32
sync on : sync rate 0
l=0
cls
f=0
g=0
hide mouse
x=0
y=0
do
dot x,y
if f=0 then inc x
if f=1 then dec x
inc y
if x=800 then x=1
if y=600 then y=1
if x=0 then x=799
if y=0 then y=599
if x>785 and y>580 then x=800 : y=0 : f=1 : ink rgb(rnd(255),rnd(255),rnd(255)),0 : inc l
if x580 then x=0 : y=600 : f=0 : ink rgb(rnd(255),rnd(255),rnd(255)),0 : inc l
if l=3
wait 1
x=0
y=0
l=0
cls
endif
loop