' This takes advantages of some BlitzMax features - auto conversion of integers
' to strings, for example.

Strict

Local t$
Local bottles:Int

For bottles=99 To 1 Step -1
   t$=isPlural(bottles)

   t$=t$+" of beer on the wall"

   Print t$+", "+t$
   Print "Take one down and pass it around, ";

   If bottles-1>0
      Print isPlural(bottles-1)+" of beer on the wall"+Chr(10