99 Bottles of Beer

Voting

Bookmarking

Language HAL/S

Date:	04/20/05
Author:	Anonymous
URL:	n/a
Comments:	1
Info:	http://www.netcomuk.co.uk/~spaceuk/hals/hals.html
Score:	(2.44 in 16 votes)

C 2003 RUPERT SCAMMELL / PUBLIC DOMAIN
C THIS PROGRAM WILL PRINT THE POPULAR FOLK SONG
C 99 BOTTLES OF BEER ON THE WALL IN THE HAL/S
C PROGRAMMING LANGUAGE, A REAL TIME FLIGHT CONTROL
C LANGUAGE PRIMARILY USED FOR FLIGHT CONTROL SOFTWARE ON
C US SPACE SHUTTLES.
C FOR MORE INFO, SEE http://www.netcomuk.co.uk/~spaceuk/hals/hals.html
                                                                                   
NINETY_NINE_BOTTLES:
PROGRAM;
        DECLARE NUM_BOTTLES INTEGER;
        DECLARE BBWALL CHAR(30);
        DECLARE BBEER CHAR(30);
        DECLARE TWDOWN CHAR(50);
        BBWALL = ' Bottles of Beer on the Wall';
        BBEER = ' Bottles of Beer';
        TWDOWN = 'Take one down, and pass it around...';
                                                                                   
        DO NUM_BOTTLES = 100 TO 1 BY -1:
                WRITE(6) NUM_BOTTLES||BBWALL;
                WRITE(6) NUM_BOTTLES||BBEER;
                WRITE(6) TWDOWN;
        END;
        WRITE(6) 'NO MORE BOTTLES OF BEER ON THE WALL!'
CLOSE NINETY_NINE_BOTTLES;

Download Source | Write Comment

Alternative Versions

Comments

ozka said on 08/11/06 13:42:35

where to get a good tutorial for this language?
the link above is dead :-(

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