99 Bottles of Beer

Voting

Bookmarking

Language XPLO

Date:	04/20/05
Author:	Philipp Winterberg
URL:	http://www.winterbergs.de/
Comments:	2
Info:	n/a
Score:	(2.48 in 27 votes)

\ XPLO version of 99 Bottles of beer (Bottles.xpl)
\ See http://www.idcomm.com/personal/lorenblaney/
\
\ Philipp Winterberg, http://www.winterbergs.de

code CRLF=9, INTOUT=11, TEXT=12;
integer B;

begin
  B:= 99;
  repeat	
    INTOUT(0, B); TEXT(0, " bottle(s) of beer on the wall,"); CRLF(0);
    INTOUT(0, B); TEXT(0, " bottle(s) of beer."); CRLF(0);
    TEXT(0, "Take one down, pass it around,"); CRLF(0);
    B:= B - 1;
    INTOUT(0, B); TEXT(0, " bottle(s) of beer on the wall."); CRLF(0);
    CRLF(0)
  until B = 0
end

Download Source | Write Comment

Alternative Versions

Comments

JC said on 12/26/09 17:21:13

This language is misnamed. It's XPL0 (number 0), not XPLO (letter O). The comment has the language name correct, but the name it is filed under is incorrect. Please feel free to delete the comment if or after it gets renamed.

barrym said on 03/29/10 09:05:35

More lazy-ass "bottle(s)" code. C'mon Phil, give us a conditional
expression or two. Geez Louise..........

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