99 Bottles of Beer

Voting

Bookmarking

Language ALGOL 60

(A shorter version using Unisys MCP Algol)

Date:	03/03/08
Author:	Paul Kimpel
URL:	http://www.digm.com
Comments:	1
Info:	http://public.support.unisys.com/aseries/docs/ClearPath-MCP-11.0/PDF/86000098-507.pdf
Score:	(2.36 in 11 votes)

% Unisys MCP Algol version of 99 Bottles, using remote file I/O.
begin
integer i;
file stdout(kind=remote);
for i:= 99 step -1 until 1 do
  write(stdout, <j3," bottle(s) of beer on the wall, ",
                 j3," bottle(s) of beer."/
                 "Take one down and pass it around,"/
                 j3," bottle(s) of beer on the wall.">, i, i, i-1);
end.

Download Source | Write Comment

Alternative Versions

Version	Author	Date	Comments	Rate
1	Tom Herbertson	04/20/05	6

Comments

Wolfgang Rinnert said on 10/14/08 11:44:40

ALGOL60 was my first programming language. I learned it on a Telefunken TR440 in late 1973. As far as I can remember, the keywords of the language had to be put in apostrophes, like 'BEGIN' and 'END'. I miss that from the published code. Although we could use very "comfortable" I/O procedures designed by D.E.Knuth. The INPUT and OUTPUT procedures used pattern strings, probably predecessors of the IO-patterns still used in C today. If I happen to retrieve some of my old university stuff with ALGOL samples, I will post the code for the song. Regards, Wolfgang

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