99 Bottles of Beer

Voting

Please select* Bad as Hell** Nothing new*** Good**** Nice Coding***** TOP GEEK

Category

real language

Bookmarking

10 FOR B=99 TO 1 STEP -1
20 GOSUB 100
30 T$=T$+" OF BEER ON THE WALL"
40 PRINT T$;", ";T$
50 PRINT "TAKE ONE DOWN AND PASS IT AROUND, "
60 IF B-1<=0 THEN PRINT "NO MORE BOTTLES OF BEER ON THE WALL":GOTO 80
70 GOSUB 200:PRINT " OF BEER ON THE WALL"
80 PRINT:NEXT
91 PRINT "GO TO THE STORE AND BUY SOME MORE, 99 BOTTLES OF BEER ON THE WALL"
92 END
100 T$=STR$(B)+" BOTTLE":IF B>1 THEN T$=T$+"S"
110 RETURN
200 A=B-1:PRINT STR$(A)+" BOTTLE";
210 IF A>1 THEN PRINT "S";
220 RETURN

Alternative Versions

Comments

 Laura said on 02/26/08 15:07:39

I miss my commadore 64 ^_^ Playing with that at 4 years old... I think that might be why I'm a geek :p. Anyway, no way to test it out but it looks cool

 hemanta said on 04/19/08 00:15:53

thats the good old time.

a very good feeling comes around my stomack(?) when i see this

 Paul said on 11/07/08 15:51:15

Your prayers are answered:

Commodore BASIC as a Scripting Language for UNIX and Windows - now Open Source

http://www.pagetable.com/?p=48

 webomatik said on 12/13/08 02:13:46

You can use this basic emulator also http://www.computerbrains.com/ccs64

 barrym said on 07/16/10 06:28:48

You seem to have too many " ON THE WALL"s, and you're missing part of the last verse!

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!

Name:

eMail:

URL:

Security Code:
  
Comment: