An Amiga language combining features of C and Pascal
/* 99 Bottles of Beer */
/* James Hicks (hicksjl@cs.rose-hulman.edu) */
/* 5 August 1996 */
int BEERS = 99;
proc main()void:
uint i;
for i from BEERS downto 1 do
if i > 1 then
writeln(i, " bottles of beer on the wall, ", i, " bottles of beer.");
else
writeln(i, " bottle of beer on the wall, ", i, " bottle of beer.");
fi;
writeln("Take one down, pass it around,");
if i > 2 then
writeln(i - 1, " bottles of beer on the wall.");
elsif i > 1 then
writeln(i - 1, " bottle of beer on the wall.");
else
writeln("No bottles of beer on the wall.");
fi;
od;
corp;