Regardless of box having two sets of data....
set display mode 1920,1080,32
sync on : sync rate 60
`autocam off
`color backdrop rgb(255,255,255)
`create bitmap 1,1680,1680
color backdrop 0
`load bitmap "kingtut.bmp",1
create bitmap 1,300,412,32
dim tcol(300*413)
for y=0 to 412
for x=0 to 299
p=point(x,y)
tcol(a)=p
inc a
next x
next y
delete bitmap 1
```````````````````````````````````````````
do
cls
for f=0 to 2900
y=rnd(412)
x=rnd(299)
ink tcol(x+y*300)
`box 700+x,400+y,x+701,y+401
dot x,y
next f
inc delay
ink rgb(0,200,0)
text 20,20,str$(screen fps())
sync
loop
`````````````````````````````````````````````````