Sorry your browser is not supported!

backdrop on : cls : sync on : sync rate 30 :global WIDT:WIDTH=DESKTOP WIDTH():global HEIGHT:HEIGHT=DESKTOP HEIGHT():SET DISPLAY MODE Width, Height, 32:SET WINDOW LAYOUT 0, 0, 0:SET WINDOW POSITION 0, 0
qq=RGB(0,200,0):for qqq=1 to 60 :for x=0 to Width step Width/100 : for y=0 to Height step Height/100 : q=rnd(100) : INK qq,0
if q>50 and q<100
DOT X+5,Y+5 : DOT X,Y+5 : DOT X+5,Y : DOT X,y
else
INK 0,0 : DOT X+5,Y+5 : DOT X,Y+5 : DOT X+5,Y : DOT X,Y
endif
next y : next x : sync : 
if qqq=59 then fps=SCREEN FPS()
set cursor 0,0 : print SCREEN FPS(): next qqq : cls 0
do
for x=0 to Width:for y=0 to Height:q=rnd(100):INK qq,0
if q>50 and q<100
DOT X+5,Y+5:DOT X,Y+5:DOT X+5,Y:DOT X,y            
else
INK 0,0:DOT X+5,Y+5:DOT X,Y+5:DOT X+5,Y::DOT X,Y
endif
y=y+(30-fps)/2:next y:x=x+(30-fps)/2:next x:set cursor 0,0:print SCREEN FPS():sync
LOOP
end

backdrop on : cls : sync on : sync rate 30 :global WIDT:WIDTH=DESKTOP WIDTH():global HEIGHT:HEIGHT=DESKTOP HEIGHT():SET DISPLAY MODE Width, Height, 32:SET WINDOW LAYOUT 0, 0, 0:SET WINDOW POSITION 0, 0
qq=RGB(0,200,0)
for qqq=1 to 10 
for x=0 to Width
 for y=0 to Height
  q=rnd(100) 
   INK qq,0
if q>50 and q<100
DOT X,y
else
INK 0,0 : DOT X,Y
endif
next y : next x : render: get image qqq,0,0,Width, Height
next qqq :qqq=1
do
texture backdrop qqq
qqq=qqq+1
if qqq>10 then qqq=1
    sync
LOOP