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 Sinclair BASIC

(ZX81 (1K)

Date:06/14/09
Author:Nine Tiles Networks
URL:n/a
Comments:0
Info:http://en.wikipedia.org/wiki/Zx81#Limitations_and_quirks
Score: (3.01 in 84 votes)
    1 REM 99 BOTTLES OF BEER
    2 REM FOR THE 1K ZX81
    3 REM BY GARRY WISHART
   10 LET B=99
   11 LET T=300
   12 LET I=1
   20 LET B$=" BOTTLES"
   25 LET N$="NO MORE"+B$+" OF BEER"
   27 LET W$=" OF BEER ON THE WALL."
   30 PRINT B;B$;W$
   40 PRINT B;B$;" OF BEER."
   50 PRINT
   60 PRINT "TAKE ONE DOWN AND PASS IT AROUND"
   70 LET B=B-I
   75 IF NOT B THEN GOTO 130
   80 LET B$=" BOTTLES"(I TO 8-(B=I))
   90 PRINT B;B$;W$
  100 GOSUB T
  110 CLS
  120 GOTO 30
  130 PRINT N$;" ON"; TAB 6;"THE WALL"
  140 PRINT N$;"."
  150 PRINT
  160 PRINT "GOTO THE STORE AND BUY"
  170 PRINT TAB 6;"SOME MORE,"
  180 PRINT "99 BOTTLES";W$
  190 GOSUB T
  205 CLS
  210 RUN
  300 FOR X=I TO T
  310 NEXT X
  320 RETURN

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!

Name:

eMail:

URL:

Security Code:
  
Comment: