99 Bottles of Beer

Voting

Bookmarking

Language uBASIC(CHDK)

(uBASIC for Canon cameras)

Date:	11/06/08
Author:	Maximilian Laiacker
URL:	n/a
Comments:	1
Info:	http://chdk.wikia.com/wiki/UBASIC
Score:	(2.30 in 10 votes)

rem uBASIC (CHDK) for Canon cameras version of 99 bottles of beer
rem author Maximilian Laiacker
rem tested on Ixus 40 with "allbest-ixus40_sd300-100k-51-fixSeries" firmware

rem after pressing the shoot button, the song text is printed on the lower left rem corner of the
camera display

@title 99 bottles of beer
@param a printing delay
@default a 500 

for x=99 to 1 step -1
  if x<>1 then print x,"bottles" else print "1 bottle"
  sleep a
  print " of beer on the wall,"
  if x<>1 then print x, "bottles of beer" else print "1 bottle of beer"
  print "Take one down and pass"
  if x<>2 then print " it around,", x-1,"bottles" else print " it around, 1 bottle"
  print " of beer on the wall"
  sleep a
next x

Download Source | Write Comment

Alternative Versions

Comments

DurhamSHARLENE said on 03/20/10 01:33:25

Have no money to buy some real estate? Worry no more, just because that's possible to get the <a href="http://lowest-rate-loans.com/topics/credit-loans">credit loans</a> to resolve such kind of problems. Thus take a secured loan to buy everything you want.

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