sync on
 
ypos=-20
ct=-1
for n=1 to 100
   test3=(((n+0.0)/3.0) = (n/3))
   test5=(((n+0.0)/5.0) = (n/5))
   a$=str$(n)
   if test3 then a$="fizz"
   if test5 then a$="buzz"
   if (test5 & test3) then a$="fizzbuzz"
   inc ct
   if ct > 19 then inc xpos,80 : ypos=-20 : ct=0
   inc ypos,20
   text xpos,ypos,a$
next n
sync
wait key