Sorry your browser is not supported!

s=128:for y = 0 to s-1 : for x = 0 to s-1 : ink ((x&&s-1)+(y&&s-1))*2,0 : dot x,y:next x:next y:for y = 0 to screen height()-s step s:for x = 0 to screen width()-s step s:copy bitmap 0,0,0,s,s, 0,x,y,x+s,y+s:next x:next y:sx=screen width()-x:if sx>0:copy bitmap 1,0,0,sx,screen height(), 1,screen width()-sx,0,screen width(),screen height():endif:sy=screen height()-y:if sy>0:copy bitmap 1,0,0,screen width(),sy, 1,0,screen height()-sy,screen width(),screen height():endif:wait key

s=128
for y = 0 to s-1
	for x = 0 to s-1
		ink ((x&&s-1)+(y&&s-1))*2,0
		dot x,y
	next x
next y
rem paste the image all over
for y = 0 to screen height()-s step s
	for x = 0 to screen width()-s step s	
		copy bitmap 0,0,0,s,s, 0,x,y,x+s,y+s
	next x
next y
rem patch up remaining gaps
sx  = screen width()-x
if sx>0 then copy bitmap 0,0,0,sx,screen height(), 0,screen width()-sx,0,screen width(),screen height()
sy  = screen height()-y
if sy>0 then copy bitmap 0,0,0,screen width(),sy, 0,0,screen height()-sy,screen width(),screen height()
wait key

sw = screen width()
sh = screen height()

function backdrop()
	if bitmap exist(1)=0
		create bitmap 1,sw,sh
		s=96
		lock pixels
		for y = 0 to sh-1
			for x = 0 to sw-1
				color = ((x&&s-1)+(y&&s-1))*2
				pDot(x,y,color)
			next x
		next y
		unlock pixels
		set current bitmap 0
	endif
	copy bitmap 1,0
endfunction
`//

`pDot - by Coding Fodder - Downloaded from: http://dbcc.zimnox.com/
function pDot(x as dword, y as dword, color as dword )
	if x < bitmap width() and y < bitmap height()
		y = y * get pixels pitch()
		x = x * ( bitmap depth() / 8 )
		pointer = get pixels pointer() + y + x
		*pointer = color
	endif
endfunction