sync on : sync rate 0 for y = 1 to 20 for x = 0 to 4 num = (x*20)+y div3# = num/3.0 div5# = num/5.0 num$ = "" if div3# = int(div3#) then num$ = "Fizz" if div5# = int(div5#) then num$ = num$ + "Buzz" if num$ = "" then num$ = str$(num) text 10+x*100,10+y*20,num$ next x next y