'submitted by TronDoc [2003.12.09] http://TronDoc.ezwebtech.com
'HotBASIC: http://www.angelfire.com/space/netcensus/hotbasic.html
'Joe B.

DEFSTR I$
FOR B = 99 TO 1 STEP-1
  PRINT B; " bottle(s) of beer on the wall,"
  PRINT B; " bottle(s) of beer."
  PRINT "Take one down, pass it around,"
  PRINT B-1; " bottle(s) of beer on the wall." + CRLF
NEXT B 
INPUT I$