( GRAFORTH version of 99 Bottles )
( By Mike Gogulski <mike@gogulski.com> 21 March 2005 )
( GRAFORTH is a graphics-oriented FORTH for the Apple ][ series computers )
( Tested under DOS 3.3 under Apple //e ROM under MESS 0.94b under Windows 2000 )
 
: DRINK
0 99 DO
I
DUP . PRINT "  bottle(s) of beer on the wall, " CR
DUP . PRINT "  bottle(s) of beer! " CR
PRINT " Take one down, pass it around, " CR
1 -
. PRINT "  bottle(s) of beer on the wall! " CR
-1 +LOOP
;
 
DRINK