Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

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

VersionAuthorDateCommentsRate
1Tom Herbertson04/20/056

Comments

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

Wolfgang Rinnert 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!

Name:

eMail:

URL:

Security Code:
  
Comment: