99 Bottles of Beer

Voting

Bookmarking

Language Irie Pascal

Date:	04/20/05
Author:	Philipp Winterberg
URL:	http://www.winterbergs.de/
Comments:	1
Info:	http://www.irietools.com/
Score:	(2.15 in 20 votes)

// Irie Pascal version of 99 Bottles of beer (Bottles.pas)
// See http://www.irietools.com/
// Philipp Winterberg, http://www.winterbergs.de  

program Bottles(output);  

var b: byte;  
    a, c: string; 

begin 
  a:= #32+#98+#111+#116+#116+#108+#101+#40+#115+#41+#32+#111+#102+#32+#98+#101+#101+#114; 
  c:= #32+#111+#110+#32+#116+#104+#101+#32+#119+#97+#108+#108;   
  b:= 99;  
  repeat 
    writeln(b:2, a, c, #44, #13, #10, b:2, a, #46, #13, #10, #84, #97, #107, #101, #32, 
            #111, #110, #101, #32, #100, #111, #119, #110, #44, #32, #112, #97, #115, 
            #115, #32, #105, #116, #32, #97, #114, #111, #117, #110, #100, #44);
    dec(b);
    writeln(b:2, a, c, #46, #13, #10);
  until b = 0; 
end.

Download Source | Write Comment

Alternative Versions

Comments

barrym said on 03/29/10 07:09:28

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