`          ~~~Fizz Buzz~~~
`             10-26-09
 
set display mode 640,480,32
set text font "Times New Roman",1
set text size 100
 
`          ~~~MAIN LOOP~~~
DO
 
 Div3=0
 Div5=0
 
 Num=Num+1
 
 Numby3#=Num/3.0
 Numby5#=Num/5.0
 
 if Numby3#=Num/3 then Div3=1
 if Numby5#=Num/5 then Div5=1
 
 if Div3=1 and Div5=1
  center text 320,200, "FizzBuzz"
 
 else
 
  if Div3=1
   center text 320,200, "Fizz"
  endif
 
  if Div5=1
   center text 320,200, "Buzz"
  endif
 endif
 
 center text 320,100, Str$(Num)
 wait key
 
 if Num=100 then Num=0
 
 CLS
 
LOOP
 
END