Voting
Category
esoteric language
Bookmarking
Language TurtleScript
| Date: | 03/07/09 |
| Author: | Jan-Thorben Brinkmann |
| URL: | http://tabbed-browsing.oos.cc |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (3.00 in 1 votes) |
# Script by Jan-Thorben Brinkmann
reset
penup
canvassize 1000, 5070
forward 125
turnright 90
forward 700
turnright 90
fontsize 14
$bottles=99
learn write $num, $nextnum {
print $num+" bottles of beer on the wall, "+$num+" bottles of beer.\nTake one down and pass it
around, "+$nextnum+" bottles of beer on the wall"
}
repeat 98 {
$next=$bottles-1
write $bottles, $next
forward 50
$bottles=$next
}
write 1, "no more"
forward 50
write "no more", 99
pendown
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