# ACE language - www.TeraText.com # Simple console version of 99 bottles # by Shane McNeil 2003 # # Download ACE here... # http://www.teratext.com.au/get/page/browser/browser?category=Support/Download%20Center import ConsoleAccess; begin Integer bottles := 99; String nl := "\n"; while bottles > 0 do cout << bottles << " bottle" << (bottles = 1 ? "" : "s") << " of beer on the wall," << nl << bottles << " bottle" << (bottles = 1 ? "" : "s") << " of beer." << nl << "Take one down, pass it around," << nl << --bottles << " bottle" << (bottles = 1 ? "" : "s") << " of beer on the wall." << nl << nl; cout.flush(); end; return null; end