set display mode 800,600,16
sync on
 
n = 0
Fizz = 1
Buzz = 1
for x = 0 to 9
for y = 0 to 9
	inc n
	if n/3 = Fizz then inc Fizz : Fizz$="Fizz" else Fizz$ = ""
	if n/5 = Buzz then inc Buzz : Buzz$="Buzz" else Buzz$ = ""
 
	if Fizz$+Buzz$ > ""
		text x*64,y*16,Fizz$+Buzz$
	  else
		text x*64,y*16,str$(n)
	endif
next x
next y
 
do
	sync
loop