99 Bottles of Beer

Voting

Bookmarking

Language KiXtart

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

; KiXtart version of 99 Bottles of beer (Bottles.kix)
; Philipp Winterberg, http://www.winterbergs.de 
;
; KiXtart is a scripting language, see www.kixtart.org
;
cls                              
color w/n

$bob  = " bottles of beer"
$wall = $bob + " on the wall"
$take = "Take one down, pass it around, "

for $b = 99 to 1 step -1
  select 
    case $b = 1
      ? "One bottle of beer on the wall," ? "One bottle of beer."
      ? $take ? "No more" $wall "."
    case $b = 2
      ? $b $wall "," ? $b $bob "."
      ? $take ? "One bottle of beer on the wall."
    case $b > 2
      ? $b $wall "," ? $b $bob "."
      ? $take ? ($b - 1) $wall "."
  endselect
  ?
next
                     
color r+/n+
sleep 1

? "No more" $wall "," ? "No more" $bob "."
? "Go to the store and buy some more," ? "99" $wall "."

get $MoreBeer
quit

Download Source | Write Comment

Alternative Versions

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!

one program in 1500 variations