Voting
Category
real language
Bookmarking
Language Orthogonal
| Date: | 04/20/05 |
| Author: | Brian Raiter |
| URL: | n/a |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (2.96 in 25 votes) |
; 99 Bottles of Beer on the Wall
; for Orthogonal
; written by Brian Raiter 5/96
:set bX = 7
:set bY = 20
[0,0]
99 1 cw
0 cw 0 ':' 'd' 'n' 'u' 'o' 'r' ' ' 't' 'i' ' ' cw
99 cw 0 ':' 'e' 'r' 'o' 'm' ' ' 'e' 'm' cw 's'
1 ? 'o' 's'
99 ! 's' 'a'
cw J c 0 cw ? c 0 s '.' 0 ccw ? s ' ' ccw 'p'
~ d cw ' ' J 0 d s ';' ' ' 0 cw 'y' 'b' ' '
0 0 'o' 'r' 'u' 'o' ','
~ 'l' 'n' 'e' 'b' 't' 'n'
0 'l' ' ' 'e' ' ' 't' 'w'
@ 'a' 't' 'b' ',' 'l' 'o'
~ 'w' 'h' ccw ' ' 'f' 'o' ' ' bY bX = ? 's' 'e' ccw 'd'
1 ' ' 'e' 'r' ' '
@ ccw ccw cw 'l' 'l' 'a' 'w' ' ' 'e' 'h' 't' cw 'o' bY
~ '.' cw 's' 'e' 'l' 't' 't' 'o' cw ' ' 't' bX
0 0 ' ' cw c 0 ret 'b' 'n' 's' =
~ c 'o' cw 0 s d 99 ' ' cw 'o' ' ' ?
1 0 cw 'f' ' ' 'b' 'e' 'e' 'r' ' ' cw 'e' ccw cw
@ cw s 'G' 'o' ' ' 't' 'o' ' ' 't' 'h' cw 't' 'e'
# 'i' 'n'
cw bX bY - 1 @ 98 nop c 0 s 'T' 'a' 'k' 'e' ' ' H 'o'
cw cw
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