99 Bottles of Beer

Voting

Bookmarking

Language JustBasic

(JustBasic is a free subset of LibertyBas)

Date:	02/21/06
Author:	John Fredrickson
URL:	n/a
Comments:	1
Info:	http://www.JustBasic.com
Score:	(2.97 in 33 votes)

REM 99 Bottles of Beer on the wall
REM John Fredrickson, Washington DC, jafred@BellAtlantic.net
REM JustBasic http://www.justbasic.com is a subset of
REM LibertyBasic http://www.LibertyBasic.com
Bottles = 99
While Bottles >= 1
  if Bottles > 1 then
    Print Bottles; " bottles of beer on the wall,"
    Print Bottles; " bottles of beer."
    Print "Take one down and pass it around,"
  else
    Print Bottles; " bottle of beer on the wall,"
    Print Bottles; " bottle of beer."
    Print "Take it down and pass it around,"
  end if
  Bottles = Bottles - 1
  Select Case Bottles
    Case 1
      Print "A single bottle of beer on the wall."
    Case 0
      Print "No more bottles of beer on the wall."
    Case Else
      Print Bottles; " bottles of beer on the wall."
    End Select
  Print
Wend
End

Download Source | Write Comment

Alternative Versions

Comments

Valarie28SIMON said on 08/03/10 17:34:58

When you are in a not good position and have got no cash to move out from that, you would require to take the <a href="http://bestfinance-blog.com/topics/credit-loans">credit loans</a>. Just because it would help you definitely. I get student loan every time I need and feel myself great just because of this.

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1500 variations