cls
set text size 20
for t=1 to 100
	`divisions as integers and floats
	a=t/3
	a#=t/3.0
	b=t/5
	b#=t/5.0
	`empty string
	printme$=""
	`if t is a multiple of three print fizz
	if (a-a#)=0
		printme$="fizz"
	endif
	`if t is a multiple of five print buzz.
	`if t is a multiple of both print fizzbuzz
	if (b-b#)=0
		printme$=printme$+"buzz"
	endif
	if printme$=""
		printme$=Str$(t)
	endif
	center text 320,240,printme$
	suspend for key
	cls
next t
end