sync on
for n=1 to 100
   a$=str$(n)
   v=(((n+0.0)/3.0)=(n/3))*3 + (((n+0.0)/5.0)=(n/5))*5
   select v
      case 3 : a$="fizz" : goto _jump : endcase
      case 5 : a$="buzz" : goto _jump : endcase
      case 8 : a$="fizzbuzz" : endcase
      _jump:
   endselect
   text ((n-1)/20)*80,((n-1)-(((n-1)/20)*20))*20,a$
next n
sync
wait key