Voting
Category
real language
Bookmarking
Language Luck
| Date: | 04/20/05 |
| Author: | Anonymous |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://www.isg.sfu.ca/life/ |
| Score: |  (2.38 in 13 votes) |
<A HREF=http://www.isg.sfu.ca/life/>Luck</A> is
custom programming language. 99BoB code contributed by the creator.
luck: Beer99
proc: main
new #bottles = 99
loop: #bottles > 0
saysolo #bottles
say " bottle(s) of beer on the wall."
saysolo
#bottles
say " bottle(s) of beer."
say "Take one down and pass it
around."
#bottles = #bottles - 1
if: #bottles = 0
saysolo "No
more"
end
if: #bottles > 0
saysolo #bottles
end
say "
bottle(s) of beer on the wall."
say
end
end
Download Source | Write Comment
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!
Comments