Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language Commodore 64 BASIC (V2)

(C64 version.)

Date:05/28/07
Author:Nicholas Kingsley
URL:http://www.nicholaskingsley.co.uk
Comments:5
Info:http://en.wikipedia.org/wiki/Commodore_BASIC
Score: (3.00 in 48 votes)
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

Download Source | Write Comment

Alternative Versions

Comments

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

Laura 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

hemanta 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

Paul 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

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

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

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

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!

Name:

eMail:

URL:

Security Code:
  
Comment: