Sync On
For N=0 To 99
  If ((N+1)/3.0)-INT((N+1)/3.0)=0 Then A$="fizz"
  If ((N+1)/5.0)-INT((N+1)/5.0)=0 Then A$=A$+"buzz"
  If ((N+1)/3.0)-INT((N+1)/3.0) <> 0 And ((N+1)/5.0)-INT((N+1)/5.0) <> 0 Then A$=Str$((N+1))
  Text (N/20)*70,(N-((N/20)*20))*16,A$: A$=""
Next N
Sync
Wait Key