99 Bottles of Beer

Voting

Bookmarking

Language Tiny Basic

(version 1.1 for Intel 8086)

Date:	06/08/05
Author:	Michael E. Sullivan
URL:	n/a
Comments:	1
Info:	http://www.devili.iki.fi/pub/IBM/PC/languages/
Score:	(2.73 in 11 votes)

This has to be entered using the line editor of Tiny Basic

0001 REM Lyrics of the song 99 Bottles of Beer in Tiny Basic

0005 LET I=99
0006 PRINT "Lyrics of the song 99 Bottles of Beer";PRINT ""

0010 REM main
0011 IF I>2 GOTO 20
0012 IF I=2 GOTO 30
0013 IF I=1 GOTO 40
0014 GOTO 50

0020 REM if greater than two
0021 PRINT #0,I," Bottles of beer on the wall, ",I," bottles of beer."
0022 LET I=I-1
0023 PRINT "Take one down and pass it around, ",
0024 PRINT #0,I," bottles of beer on the wall."
0025 GOTO 10

0030 REM if equals two
0031 PRINT #0,I," Bottles of beer on the wall, ",I," bottles of beer."
0032 LET I=I-1
0033 PRINT "Take one down and pass it around, ",
0034 PRINT #0,I," bottle of beer on the wall."
0035 GOTO 10

0040 REM if equals one
0041 PRINT #0,I," Bottle of beer on the wall, ",I," bottle of beer."
0042 LET I=I-1
0043 PRINT "Take one down and pass it around,",
0044 PRINT " no more bottles of beer on the wall."
0045 GOTO 10

0050 REM if equals zero then exit
0051 PRINT "No more bottles of beer on the wall.  No more bottles of beer..."
0052 PRINT "Go to the store and buy some more...99 bottles of beer."

Download Source | Write Comment

Alternative Versions

Comments

barrym said on 07/12/10 06:35:56

Wow, that's a whole bunch of string literals! Okay, I guess, if you're a good
typist (I'm not).

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