// calling by pressing button on form 
// Alexey Baranov wdayda@yahoo.com
Procedure bottles()
	s = "s";     
	beer = 99;
	While beer<>0 do
		Message(String(beer) + " bottle " + s + " of beer on the wall, " + String(beer) + " bottle" + s + " of beer."); 
		Message("Take one and pass it around.");
		beer = beer - 1;
		s = ?(beer = 1,"","s");
	EndDo;
	Message("No more bottles of beer on the wall.");
	Message("No more bottles of beer...");
	Message("Go to the story and buy some more...");
	Message("99 bottles of beer.");
EndProcedure