99 Bottles of Beer

Voting

Bookmarking

Language SuperBase

Date:	04/20/05
Author:	Mark Pilgrim
URL:	n/a
Comments:	0
Info:	n/a
Score:	(2.86 in 7 votes)

SUB main()
 REM "99 bottles of beer", Superbase SBL version
 REM written by Mark Pilgrim, f8dy@netaxs.com
 REM [ If my boss is reading this, I'd just like to reassure
 REM   him that I wrote this on my own time. -MP ]
 DIM i%%,beer$,bottle$
 OPEN WINDOW "99 bottles of beer"
 bottle$ = " bottles "
 beer$ = "99"
 FOR i%% = 99 TO 1 STEP - 1
   ? beer$ + bottle$ + "of beer on the wall,"
   ? beer$ + bottle$ + "of beer,"
   ? "Take " + IF (i%% > 1,"one","it") + " down, pass it around,"
   IF i%% > 1 THEN 
     beer$ = LTRIM$ ( TRIM$ ( STR$ (i%% - 1)))
     IF i%% = 2 THEN bottle$ = " bottle "
     ? beer$ + bottle$ + "of beer on the wall."
     ? 
   ELSE 
     ? "No more bottles of beer on the wall."
   END IF 
 NEXT 
 END SUB

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 1500 variations