99 Bottles of Beer

Voting

Bookmarking

Language LotusScript

Date:	04/20/05
Author:	Sean Heffernan
URL:	n/a
Comments:	0
Info:	n/a
Score:	(2.80 in 107 votes)

Sub Click(Source As Button)
        ' -----------------------------------------------------
        ' 99 Bottle of Beer on the Wall, in LotusScript
        ' By Sean Heffernan
        ' -----------------------------------------------------

        Dim ui As New NotesUIWorkspace
        Dim s As String
        Dim n As Integer
       
        For n = 99 To 1 Step -1
                If n > 1 Then
                        s = Cstr(n) + " bottles of beer on the wall. " +
Cstr(n) + " bottles of beer. Take one down, pass it around. " + Cstr(n-1)
+ " bottles of beer on the wall."
                Else
                        s =  "Only one more bottle of beer on the wall.
Only one more bottle of beer. Take it down, pass it around. No more
bottles of beer on the wall."
                End If
                Call ui.Prompt ( PROMPT_OK, "99 Bottles of Beer ...", s )
        Next
       
End Sub

Download Source | Write Comment

Alternative Versions

Comments

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