00110  "The Beer Song!\n\n"
00120  [ 99 ] b ?
00130  [b]? [@]$ [9000] @
00140  "of beer on the wall \n" [b]? [@]$ [9000] @
00150  "of beer\n" [?]
00160  [b 1 -] b   [b 0 >! 210 *]@
00170  "You take one down, pass it around..\n"
00180  [b]? [@]$  [9000] @
00190  "of beer on the wall \n\n"
00200  [130] @
00210  "You take one down, pass it around.. \n"
00220  "No more bottles of beer on the wall. \n\n\n\n"
00230  "No more bottles of beer on the wall, \n"
00240  "No more bottles of beer. You go to the store \n"
00250  "and then buy some more, 99 bottles of beer on the wall \n\n\n"
00260  [9999] @
09000  [b 1 = 9100 *] @
09010  " bottles " [$]@
09100  " bottle "  [$]@
09999  .