99 Bottles of Beer

in Froth

\ by a teetotaler



: LYRICS   [CHAR] ! PARSE  DUP C,

   HERE SWAP  CHARS DUP ALLOT MOVE ;

: VOCALIZE  ( a)  COUNT TYPE ;

: SING   CREATE LYRICS  DOES> VOCALIZE ;



SING NO_MORE No more !

SING BOTTLE bottle! 

SING BOTTLES bottles! 

SING OF_BEER  of beer!  

SING ON_THE_WALL  on the wall!

SING TAKE Take !

SING IT it! 

SING ONE one!

\ note: next two lines should be one line

SING DOWN_AND_PASS_IT_AROUND

  down and pass it around!

\ next two lines should be one line

SING GO_TO_THE_STORE_&_BUY_SOME_MORE

 Go to the store and buy some more!

SING COMMA ,!

SING PERIOD .!



: ?: CREATE  ( n)  ,   ' ,  ' ,

   DOES>  ( n)  TUCK @ <>  1-  CELLS -

      @ EXECUTE ;



: NONE  ( n)  DROP NO_MORE ;

: SOME  ( n)  . ;



0 ?: HOW_MANY  NONE  SOME 



1 ?: BOTTLE(S)  BOTTLE  BOTTLES



1 ?: IT|ONE  IT  ONE



: COMMERCIAL  ( 0 - 99)

   GO_TO_THE_STORE_&_BUY_SOME_MORE  99 + ;

: SHAREWARE  ( n - n-1)

   DUP  TAKE IT|ONE DOWN_AND_PASS_IT_AROUND  1- ;



0 ?: main(){0?99:--}  COMMERCIAL  SHAREWARE



: BURP  ( n - n n)  DUP ;

: HOW_MANY_BOTTLES_OF_BEER  ( n n n)

   HOW_MANY BOTTLE(S) OF_BEER ;



: Froth  ( n - n')



   CR  BURP BURP BURP

       HOW_MANY_BOTTLES_OF_BEER ON_THE_WALL  COMMA

   CR  BURP BURP BURP

       HOW_MANY_BOTTLES_OF_BEER              COMMA

   CR  BURP

       main(){0?99:--}                       COMMA

   CR  BURP BURP BURP

       HOW_MANY_BOTTLES_OF_BEER ON_THE_WALL  PERIOD

   CR ;



: LeoWong  ( n)  DROP ;



: SONG   99



                      Froth Froth

                     Froth   Froth 

                      Froth Froth

                      Froth Froth 

                      Froth Froth  

                      Froth Froth 

                      Froth Froth 

                      Froth Froth 

                      Froth Froth 

                      Froth Froth 

                    Froth     Froth

                   Froth Froth Froth

                 Froth   Froth   Froth 

                Froth Froth Froth Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

               Froth Froth Froth   Froth 

                Froth Froth Froth Froth 



                                        LeoWong ;





SONG



\ 06FEB96 + 06MAR97 +