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 PL/B

Date:01/06/09
Author:Tony Presnow
URL:n/a
Comments:0
Info:http://www.sunbelt-plb.com
Score: (3.00 in 8 votes)
./////////////////////////////////////////////////////////////////////////////.
.//   ANSI Standard PL/B version of 99 bottles of beer                      //.
.//   Tony Presnow, Triangle Mfg. Co. (www.triangleoshkosh.com)		    //.
.//   January 6, 2009                                                       //.
./////////////////////////////////////////////////////////////////////////////.
bottleCount     form    2
pauseTheProgram dim 	1
./////////////////////////////////////////////////////////////////////////////.
start
    ; set our bottle counter to 99, then begin our descent
    move "99" to bottleCount
    loop
        if (bottleCount = 1)
           ; 1 bottle of beer left
	   display *ROLL," 1 bottle of beer on the wall, 1 bottle of beer.",*n:
	           " Take one down and pass it around, no more bottles of beer on the wall.",*n,*n;
	   subtract "1" from bottleCount
        elseif (bottleCount = 2)
	   ; 2 bottles left
	   display *ROLL," 2 bottles of beer on the wall, 2 bottles of beer.",*n:
	           " Take one down and pass it around, 1 bottle of beer on the wall.",*n,*n;
	   subtract "1" from bottleCount
        else
	   ;3 or more bottles left
	   display *ROLL,bottleCount," bottles of beer on the wall, ",bottleCount," bottles of beer."
	   subtract "1" from bottleCount
	   display *ROLL," Take one down and pass it around, ",bottleCount," bottles of beer on the
wall.",*n,*n;
        endif
    repeat until (bottleCount = 0)
    display *ROLL," No more bottles of beer on the wall, no more bottles of beer.",*n:
	    " Go to the store and buy some more, 99 bottles of beer on the wall.",*n,*n;
    ;Pause the program so you can see if it worked! then press any key to exit
    keyin pauseTheProgram    
stop
.///////////////////////////////////////////////////////////////////////////////

Download Source | Write Comment

Alternative Versions

VersionAuthorDateCommentsRate
ANSI Standard PL/BBrian J. Jackson11/18/051

Comments

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: