mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
41 lines
598 B
Forth
41 lines
598 B
Forth
# example|99Bottles
|
|
|
|
Display the text for the *99 Bottles of Beer* song.
|
|
|
|
Declare module constant (prevents reloading when using `import`):
|
|
|
|
````
|
|
:example|99Bottles ;
|
|
````
|
|
|
|
````
|
|
[ dup putn sp 'bottles puts ]
|
|
[ '1_bottle puts ]
|
|
[ 'no_more_bottles puts ]
|
|
'bottles d:create
|
|
, , ,
|
|
|
|
:.bottles
|
|
dup #2 n:min bottles + fetch call ;
|
|
|
|
:.beer
|
|
.bottles '_of_beer putsf ;
|
|
|
|
:.wall
|
|
.beer '_on_the_wall putsf ;
|
|
|
|
:.take
|
|
'Take_one_down,_pass_it_around putsf ;
|
|
|
|
:.verse
|
|
.wall nl .beer nl
|
|
n:dec .take nl .wall nl ;
|
|
|
|
:?dup
|
|
dup 0; ;
|
|
|
|
:verses
|
|
[ nl .verse dup n:-zero? ] while drop ;
|
|
|
|
#99 verses
|
|
````
|