retroforth/example/99Bottles.forth

36 lines
578 B
Text
Raw Normal View History

# example|99Bottles
Display the text for the *99 Bottles of Beer* song.
~~~
[ dup putn sp 'bottles puts ]
[ '1_bottle puts ]
[ 'no_more_bottles puts ]
'bottles d:create
, , ,
:display-bottles
dup #2 n:min bottles + fetch call ;
:display-beer
display-bottles '_of_beer puts ;
:display-wall
display-beer '_on_the_wall puts ;
:display-take
'Take_one_down,_pass_it_around puts ;
:display-verse
display-wall nl display-beer nl
n:dec display-take nl display-wall nl ;
:?dup
dup 0; ;
:verses
[ nl display-verse dup n:-zero? ] while drop ;
#99 verses
~~~