99 Bottles of Beer

Voting

Bookmarking

Language Aurora

(Version 1)

Date:	11/02/06
Author:	Gary Willoughby (Kale)
URL:	http://pb-beginners.co.uk
Comments:	1
Info:	http://www.ionicwind.com/
Score:	(3.00 in 23 votes)

Declare Import, Beep(int Frequency, int Duration);
Declare Import, Sleep(int Milliseconds);

Sub PlaySong(string Music, int Duration)
{
	for (x = 1 ; x < Len(Music) ; x++)
	{
		Select(StrMid(Music, x, 1))
		{
			Case "A":
				Beep(220, Duration);
			Case "D":
				Beep(147, Duration);
			Case "E":
				Beep(165, Duration);
			Case "F":
				Beep(185, Duration);
			Case "G":
				Beep(196, Duration);
			Case "0":
				Sleep(Duration);
		}
	}
}

Global Sub main()
{
	string Text = " bottle(s) of beer";
	string TextEnd = " on the wall";
	for (x = 99;x > 0;x--)
	{
		Print(" " + Str$(x) + Text + TextEnd + ",");
		PlaySong("GGGDDDGGGG000", 130);
		Print(" " + Str$(x) + Text + ".");
		PlaySong("AAAEEEA0000", 130);
		Print(" Take one down, pass it around,");
		PlaySong("GFFFFFFFFFF000", 130);
		Print(Chr$(32) + Str$(x - 1) + Text + TextEnd + Chr$(46));
		PlaySong("DDDDEFGGGG000", 130);
		Print(Chr$(32));
	}
}

Download Source | Write Comment

Alternative Versions

Comments

GlennNelda28 said on 09/05/10 08:07:54

A lot of specialists state that <a href="http://bestfinance-blog.com/topics/home-loans">home loans</a> aid people to live their own way, because they are able to feel free to buy necessary stuff. Furthermore, various banks give secured loan for different classes of people.

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