99 Bottles of Beer

Voting

Bookmarking

Language GRAFORTH

Date:	05/18/05
Author:	Mike Gogulski
URL:	n/a
Comments:	0
Info:	n/a
Score:	(3.35 in 23 votes)

( 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

Download Source | Write Comment

Alternative Versions

Comments

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1216 variations