99 Bottles of Beer

Voting

Bookmarking

Language FileMaker Pro 3.0

Date:	04/20/05
Author:	Anonymous
URL:	n/a
Comments:	1
Info:	n/a
Score:	(2.90 in 20 votes)

Enter Browse Mode
Set Field No. Bottles/Calculation (99)
Set Field Bottle Text/Calculation (>=<=)
Loop
  Set Field Bottle Text/Calculation
    If(No. Bottles a 1,
      No. Bottles & >=bottles of beer on the wall. >= & 
          No. Bottles & >=bottles of beer.<= & Paragraph & 
	  >=Take one down and pass it around and >=,
      No. Bottles & >=bottle of beer on the wall. >= & 
          No. Bottles & >=bottle of beer.<= & Paragraph & 
	  >=Take one down and pass it around and >=) & Paragraph &
    If(No. Bottles - 1 a 1,
      (No. Bottles - 1) & >= bottles of beer on the wall<=,
      (No. Bottles - 1) & >= bottle of beer on the wall<=)
Refresh Window
Comment (Viewing text is optional)
Speak (Speech Data: Field: Bottle Text/Wait for completion)
Comment  (Speech is optional)
Set Field No. Bottles/Calculation (No. Bottles - 1)
Exit Loop If (Calculation (No. Bottles = 0))
End Loop
Set Field Bottle Text/Calculation (>=0 bottles of beer on the wall. 
     0 bottles of beer. Go to the store and buy some more.<= & 
     Paragraph & >=99 bottles of beer on the wall.<=
Refresh Window
Speak (Speech Data: Field: Bottle Text/Wait for completion)

Download Source | Write Comment

Alternative Versions

Comments

Jon Rosen said on 10/30/06 19:26:50

I created this file and submitted it back in April of 1996. I was credited on the original Website, but it's showing up as anonymous now. I believe FileMaker 3 was the current version when I wrote it. We're up to FM 8.5, so if I rewrote it, it would require less code.

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