99 Bottles of Beer/Basic: Difference between revisions

From Rosetta Code
Content added Content deleted
No edit summary
 
(42 intermediate revisions by 12 users not shown)
Line 5: Line 5:
[[99 Bottles of Beer]] done in any of the BASIC-languages.
[[99 Bottles of Beer]] done in any of the BASIC-languages.
__toc__
__toc__

=={{header|BASIC}}==
=={{header|BASIC}}==
==={{header|QuickBASIC}}===
{{works with|QuickBASIC|4.5}}
====Sound====
This version plays the tune 100 times while printing out the lyrics (not synchronized).
<lang qbasic>PLAY "<"
FOR x = 99 TO 0 STEP -1
PRINT x; "bottles of beer on the wall"
PRINT x; "bottles of beer"
PRINT "Take one down, pass it around"
PRINT x-1; "bottles of beer on the wall"
PRINT
PLAY "e-8e-8e-8<b-8b-8b-8>e-8e-8e-8e-4"'X bottles of beer on the wall
PLAY "f8f8f8c8c8c8f4"'X bottles of beer
PLAY "d4d8d8 N0 d8d8d8d4"'take one down, pass it around
PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"'X-1 bottles of beer on the wall
NEXT x</lang>

====Text====
<lang qbasic>FOR x = 99 TO 1 STEP -1
PRINT x; "bottles of beer on the wall"
PRINT x; "bottles of beer"
PRINT "Take one down, pass it around"
PRINT x-1; "bottles of beer on the wall"
PRINT
NEXT x</lang>


==={{header|Applesoft BASIC}}===
==={{header|Applesoft BASIC}}===
<lang Applesoft BASIC>H$ = "HELLO, WORLD!":B$ = " BOTTLES OF BEER":N$ = CHR$ (13):W$ = " ON THE WALL" + N$: FOR B = 99 TO 1 STEP - 1: PRINT B;B$W$B" "B$N$"TAKE ONE DOWN, PASS IT AROUND"N$B - 1;B$W$: NEXT </lang>
<syntaxhighlight lang="qbasic">H$ = "HELLO, WORLD!":B$ = " BOTTLES OF BEER":N$ = CHR$ (13):W$ = " ON THE WALL" + N$: FOR B = 99 TO 1 STEP - 1: PRINT B;B$W$B" "B$N$"TAKE ONE DOWN, PASS IT AROUND"N$B - 1;B$W$: NEXT </syntaxhighlight>


===BaCon===
==={{header|BaCon}}===
With lyrics and punctuation taken from the 99-bottles-of-beer.net site.
With lyrics and punctuation taken from the 99-bottles-of-beer.net site.
<lang freebasic>' 99 bottles of beer on the wall
<syntaxhighlight lang="freebasic">' 99 bottles of beer on the wall
DECLARE counter$
DECLARE counter$
DECLARE bottle$
DECLARE bottle$
Line 66: Line 40:
PRINT counter$, bottle$, ofbeer$, onthewall$ FORMAT "%s %s %s %s.\n"
PRINT counter$, bottle$, ofbeer$, onthewall$ FORMAT "%s %s %s %s.\n"
IF bottles > 0 THEN PRINT
IF bottles > 0 THEN PRINT
NEXT</lang>
NEXT</syntaxhighlight>


==={{header|BASIC256}}===
==={{header|BASIC256}}===
<lang BASIC256>#length of querter and eight note in ms
<syntaxhighlight lang="basic256">#length of querter and eight note in ms
n4 = 1000 * 60 / 80 / 4
n4 = 1000 * 60 / 80 / 4
n8 = n4 / 2
n8 = n4 / 2
Line 102: Line 76:
print
print
next x
next x
</syntaxhighlight>
</lang>


==={{header|BBC BASIC}}===
==={{header|BBC BASIC}}===
'''Versión más clásica'''
<syntaxhighlight lang="bbcbasic">REM 99 bottles of beer song BBC BASIC version
REM original code by Stelio Passaris (stelio.net)
:
a$=" bottle"
s$="s"
b$=" of beer"
c$=" on the wall..."
t$="Take one down and pass it around,"
:
VDU14:REM habilita el modo de paginación; pulsa shift para avanzar página.
FOR i% = 99 TO 1 STEP -1
IF i% = 1 THEN s$=""
IF i% < 99 THEN PRINT;i%;a$;s$;b$;c$;"."'
PRINT;i%;a$;s$;b$;c$;","'i%;a$;s$;b$;"."'t$
NEXT i%
PRINT"no more";a$;"s";b$;c$;"."
PRINT'"No more bottles of beer on the wall,"
PRINT"no more bottles of beer."
PRINT"Go to the store and buy some more,"
PRINT"99 bottles of beer on the wall."
VDU15:REM deshabilita el modo de paginación</syntaxhighlight>


Alternative version:
<lang bbcbasic>

<syntaxhighlight lang="bbcbasic">
N_Bottles = 99
N_Bottles = 99
Line 139: Line 137:
END
END
</syntaxhighlight>
</lang>

==={{header|bootBASIC}}===
In bootBASIC lines are limited to 19 characters.
<syntaxhighlight lang="BASIC">
5 a=99
10 print a ;
20 print " bottle";
22 if a-1 print "s";
24 print " ";
30 print "of beer ";
40 print "on the ";
50 print "wall!"
60 print a ;
70 print " bottle";
72 if a-1 print "s";
74 print " ";
80 print "of beer!"
90 print "Take one ";
100 print "down, pass";
110 print " it around!"
115 a=a-1
120 print a ;
130 print " bottle";
132 if a-1 print "s";
134 print " ";
140 print "of beer ";
150 print "on the ";
160 print "wall!"
170 print
180 if a goto 10
</syntaxhighlight>

==={{header|Commander X16 BASIC}}===
<syntaxhighlight lang="BASIC">
10 PSGINIT
20 PSGPLAY 0, "T220L4"
30 FOR Z=99 TO 1 STEP -1
40 PRINT Z; "BOTTLE";
50 IF Z <> 1 THEN PRINT "S";
60 PRINT " ";
70 PRINT "OF BEER ON THE WALL!"
80 PSGPLAY 0,"GGGDDDGGGG2."
90 PRINT Z; "BOTTLE";
100 IF Z <> 1 THEN PRINT "S";
110 PRINT " ";
120 PRINT "OF BEER!"
130 PSGPLAY 0,"AAAEEES0A2.A2.S1"
140 PRINT " TAKE ONE DOWN"
150 PSGPLAY 0,"F+2F+F+2."
160 PRINT " PASS IT AROUND"
170 PSGPLAY 0,"F+F+F+F+2."
180 PRINT Z-1; "BOTTLE";
190 IF Z <> 2 THEN PRINT "S";
200 PRINT " ";
210 PRINT "OF BEER ON THE WALL!"
220 PSGPLAY 0,"DDDDEF+GGGG2."
230 PRINT
240 NEXT Z
</syntaxhighlight>


==={{header|Commodore BASIC}}===


==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
{{works with|GW-BASIC}}
<syntaxhighlight lang="qbasic">10 cls
20 s$ = "s"
30 for bottles = 99 to 1 step -1
40 print bottles "bottle" s$ " of beer on the wall, "
50 print bottles "bottle" s$ " of beer."
60 print "Take one down and pass it around, "
70 if bottles = 2 then s$ = ""
80 if bottles > 1 then print (bottles-1)"bottle" s$ " of beer on the wall..." else print "no more bottles of beer on the wall..."
90 print
100 next bottles
110 print "No more bottles of beer on the wall,"
120 print "no more bottles of beer."
130 print "Go to the store and buy some more,"
140 print "99 bottles of beer on the wall."
150 end</syntaxhighlight>

==={{header|Commodore BASIC}}===
You may need to remove the semicolon on line 20 when executing on the VIC-20. Also, this looks best on the machines with 40 or more columns.
You may need to remove the semicolon on line 20 when executing on the VIC-20. Also, this looks best on the machines with 40 or more columns.


<syntaxhighlight lang="freebasic">10 dim bo$(2):bo$(0)="bottle":bo$(1)="bottles"
<lang FreeBasic>
10 dim bo$(2):bo$(0)="bottle":bo$(1)="bottles"
15 print chr$(147);chr$(14);"99 Bottles of Beer Song"
15 print chr$(147);chr$(14);"99 Bottles of Beer Song"
20 print:print "Start with how many bottles";
20 print:print "Start with how many bottles";
Line 163: Line 238:
130 if k$="q" then end
130 if k$="q" then end
135 rem move to next verse
135 rem move to next verse
140 print:next c
140 print:next c</syntaxhighlight>

</lang>
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">'99 bottles of beer on the wall

for beer = 99 to 1 step - 1

if beer > 1 then

print beer, " bottles of beer on the wall."
print beer, " bottles of beer!"

endif

if beer = 1 then

print beer, " bottle of beer on the wall."
print "1 more bottle of beer!"

endif

print "take one down and pass it around..."

wait

next beer

alert "All out of beer!"

end</syntaxhighlight>


==={{header|Creative Basic}}===
==={{header|Creative Basic}}===
====window version====
====window version====
<lang Creative Basic>DEF Win:WINDOW
<syntaxhighlight lang="creative basic">DEF Win:WINDOW
DEF Close:CHAR
DEF Close:CHAR
DEF ScreenSizeX,ScreenSizeY:INT
DEF ScreenSizeX,ScreenSizeY:INT
Line 309: Line 412:
NEXT X
NEXT X


RETURN
RETURN</syntaxhighlight>
</lang>
====console only version====
====console only version====
Rather quickly written and dirty.
Rather quickly written and dirty.
<lang Creative Basic>REM Using the ESC key to exit will not work in console programs under Windows 95/98 or ME.
<syntaxhighlight lang="creative basic">REM Using the ESC key to exit will not work in console programs under Windows 95/98 or ME.


DECLARE SingWallLn()
DECLARE SingWallLn()
Line 423: Line 525:
END
END


RETURN
RETURN</syntaxhighlight>
</lang>


==={{header|FBSL}}===
==={{header|FBSL}}===
This is a OO version, using FBSL v3.5 Beta
This is a OO version, using FBSL v3.5 Beta
<lang qbasic>#AppType Console
<syntaxhighlight lang="qbasic">#AppType Console


Class Wall
Class Wall
Line 488: Line 589:
while BeerSong.Sing() <> 99
while BeerSong.Sing() <> 99
end while
end while
</syntaxhighlight>
</lang>


==={{header|FreeBASIC}}===
==={{header|FreeBASIC}}===
==== Normal version ====
<lang freebasic>' FB 1.05.0 Win64
<syntaxhighlight lang="freebasic">' FB 1.05.0 Win64


Dim As Integer bottles = 99
Dim As Integer bottles = 99
Line 511: Line 613:


Print "Press any key to sleep it off"
Print "Press any key to sleep it off"
Sleep</lang>
Sleep</syntaxhighlight>

==== Code golf ====
<syntaxhighlight lang="freebasic">Var b=" bottle",s="s",f=" of beer",w=" on the wall",_
t="Take one down and pass it around, ",n="o more",p="."
For a As Byte=99 To 1 Step-1
?Str(a);b;*Iif(a>1,@s,0);f;w;",";a;b;*Iif(a>1,@s,0);f;p
If a>1 Then ?t;Str(a-1);b;*Iif(a>2,@s,0);f;w;p:?
Next
?t;"n";n;b;s;f;w;p:?:?"N";n;b;s;f;w;", n";n;b;s;f;p
?"Go to the store and buy some more, 99";b;s;f;w;p
Sleep</syntaxhighlight>


==={{header|FUZE BASIC}}===
==={{header|FUZE BASIC}}===
<lang qbasic>CLS
<syntaxhighlight lang="qbasic">CLS
DIM s$(1)
DIM s$(1)
READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$
READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$
Line 525: Line 638:
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
DATA "No more","Go to the store and buy some more. 99"
DATA "No more","Go to the store and buy some more. 99"
END</lang>
END</syntaxhighlight>


==={{header|Integer BASIC}}===
==={{header|GW-BASIC}}===
Just a basic loop counting down to one. No big deal. Note that at BOTTLES=1, it is not
grammatically correct.


<syntaxhighlight lang="qbasic">10 FOR BOTTLES = 99 TO 1 STEP -1
20 PRINT BOTTLES " bottles of beer on the wall"
30 PRINT BOTTLES " bottles of beer"
40 PRINT "Take one down, pass it around"
50 PRINT BOTTLES-1 " bottles of beer on the wall"
60 NEXT BOTTLES
</syntaxhighlight>

==={{header|Integer BASIC}}===
IMPORTANT NOTE: Integer BASIC was written (and hand-assembled by Woz himself)
IMPORTANT NOTE: Integer BASIC was written (and hand-assembled by Woz himself)
for the Apple 1 and original Apple 2.
for the Apple 1 and original Apple 2.
Line 534: Line 658:
The UPPER-CASE output of this example accurately represents the only reasonable solution for those target devices, and therefore cannot be "fixed" for mixed case, only deleted.
The UPPER-CASE output of this example accurately represents the only reasonable solution for those target devices, and therefore cannot be "fixed" for mixed case, only deleted.


<lang Integer BASIC>E000G (APPLE II)
<syntaxhighlight lang="integer basic">E000G (APPLE II)
E000R (APPLE I)
E000R (APPLE I)
10 REM -------------------------
10 REM -------------------------
Line 561: Line 685:
80 PRINT " BOTTLE";: IF B#1 THEN PRINT "S";: PRINT " OF BEER";
80 PRINT " BOTTLE";: IF B#1 THEN PRINT "S";: PRINT " OF BEER";
90 IF W#1 THEN PRINT " ON THE WALL";: IF W THEN PRINT ".": NEXT W,B: END
90 IF W#1 THEN PRINT " ON THE WALL";: IF W THEN PRINT ".": NEXT W,B: END
RUN</lang>
RUN</syntaxhighlight>


==={{header|Liberty BASIC}}===
==={{header|Liberty BASIC}}===
<lang lb>For bottles = 99 To 1 Step -1
<syntaxhighlight lang="lb">For bottles = 99 To 1 Step -1
song$ = song$ + str$(bottles) + " bottle"
song$ = song$ + str$(bottles) + " bottle"
If (bottles > 1) Then song$ = song$ + "s"
If (bottles > 1) Then song$ = song$ + "s"
Line 576: Line 700:
+ chr$(13) + chr$(10) + "Go to the store and buy some more, 99 bottles of beer on the wall."
+ chr$(13) + chr$(10) + "Go to the store and buy some more, 99 bottles of beer on the wall."


Print song$</lang>
Print song$</syntaxhighlight>


==={{header|Microsoft Small Basic}}===
==={{header|Microsoft Small Basic}}===
<syntaxhighlight lang="microsoftsmallbasic">

<lang microsoftsmallbasic>
For n = 99 To 1 Step -1
For n = 99 To 1 Step -1
If n = 1 Then
If n = 1 Then
Line 598: Line 721:
TextWindow.WriteLine("")
TextWindow.WriteLine("")
EndFor
EndFor
</syntaxhighlight>
</lang>


==={{header|MSX Basic}}===
==={{header|Minimal BASIC}}===
{{trans|BBC BASIC}}
The cases of 99 bottles and of 1 bottle are extracted from the loop. The variable <code>S$</code> is replaced by litterals, <code>T$</code> is divided into two variables (In Minimal BASIC strings assignable to string variables may contain up to 18 chars).
<syntaxhighlight lang="gwbasic">
10 REM 99 Bottles of Beer
20 LET A$ = " bottle"
30 LET B$ = " of beer"
40 LET C$ = " on the wall..."
50 LET T$ = "Take one down and"
60 LET U$ = " pass it around,"
70 REM 99 bottles
80 PRINT 99; A$; "s"; B$; C$; ","
90 PRINT 99; A$; "s"; B$; "."
100 PRINT T$; U$
110 FOR I = 98 TO 2 STEP -1
120 PRINT I; A$; "s"; B$; C$; "."
130 PRINT
140 PRINT I; A$; "s"; B$; C$; ","
150 PRINT I; A$; "s"; B$; "."
160 PRINT T$; U$
170 NEXT I
180 REM 1 bottle
190 PRINT 1; A$; B$; C$; "."
200 PRINT
210 PRINT 1; A$; B$; C$; ","
220 PRINT 1; A$; B$; "."
230 PRINT T$; U$
240 PRINT "no more"; A$; "s"; B$; C$; "."
250 PRINT
260 PRINT "No more bottles of beer on the wall,"
270 PRINT "no more bottles of beer."
280 PRINT "Go to the store and buy some more,"
290 PRINT "99 bottles of beer on the wall."
300 END</syntaxhighlight>


==={{header|MSX Basic}}===
<lang MSXBasic>
10 FOR X = 99 TO 1 STEP -1
<syntaxhighlight lang="qbasic">10 FOR X = 99 TO 1 STEP -1
20 PRINT X; "bottles of beer on the wall"
20 PRINT X; "bottles of beer on the wall"
30 PRINT X; "bottles of beer"
30 PRINT X; "bottles of beer"
Line 609: Line 765:
50 PRINT X-1; "bottles of beer on the wall"
50 PRINT X-1; "bottles of beer on the wall"
60 PRINT
60 PRINT
70 NEXT X
70 NEXT X</syntaxhighlight>
</lang>


==={{header|OxygenBasic}}===
==={{header|OxygenBasic}}===
<lang qbasic>
<syntaxhighlight lang="qbasic">int x=99
int x=99
string cr,tab,pr,bottles,bottlem,remain
string cr,tab,pr,bottles,bottlem,remain
cr=chr(13) chr(10)
cr=chr(13) chr(10)
Line 641: Line 795:
next
next
'
'
putfile "t.txt",pr
putfile "t.txt",pr </syntaxhighlight>
</lang>


==={{header|PowerBASIC}}===
==={{header|PowerBASIC}}===
<lang PowerBasic>#COMPILE EXE
<syntaxhighlight lang="powerbasic">#COMPILE EXE
#DIM ALL
#DIM ALL


Line 674: Line 827:
CON.INPUT("Press any key to sleep it off",done$)
CON.INPUT("Press any key to sleep it off",done$)


END FUNCTION</lang>
END FUNCTION</syntaxhighlight>


==={{header|PureBasic}}===
==={{header|PureBasic}}===
====Normal version====
====Normal version====
<lang PureBasic>If OpenConsole()
<syntaxhighlight lang="purebasic">If OpenConsole()
Define Bottles=99
Define Bottles=99
While Bottles
While Bottles
Line 690: Line 843:
PrintN(#CRLF$+#CRLF$+"Press ENTER to exit"):Input()
PrintN(#CRLF$+#CRLF$+"Press ENTER to exit"):Input()
CloseConsole()
CloseConsole()
EndIf</lang>
EndIf</syntaxhighlight>


====An object-oriented solution====
====An object-oriented solution====
<lang PureBasic>Prototype Wall_Action(*Self, Number.i)
<syntaxhighlight lang="purebasic">Prototype Wall_Action(*Self, Number.i)


Structure WallClass
Structure WallClass
Line 751: Line 904:
CloseConsole()
CloseConsole()
EndIf
EndIf
EndIf</lang>
EndIf</syntaxhighlight>


==={{header|QB64}}===
==={{header|QB64}}===
''CBTJD'': 2020/03/08
<lang QB64>READ b, s$(0), s$(1), a$, b$, c$, d$, e$, f$
* Manages grammatical support for "1 bottle of beer" and "No more bottles of beer".
g$ = CHR$(10)
<syntaxhighlight lang="vb">A$ = "bottle": B$ = " of beer": C$ = " on the wall": D$ = " Take one down, pass it around": E$ = " No more "
WHILE b > 0
IF b > 1 THEN
FOR B = 99 TO 1 STEP -1
x = 1
S$ = STRING$(ABS(B > 1), "s")
PRINT B; A$; S$; B$; C$: PRINT B; A$; S$; B$: PRINT D$
SELECT CASE B
CASE 2: PRINT B - 1; A$; B$; C$
CASE 1: PRINT E$; A$; "s"; B$; C$
CASE ELSE: PRINT B - 1; A$; S$; B$; C$
END SELECT
PRINT
NEXT</syntaxhighlight>

==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<syntaxhighlight lang="qbasic">suffix$ = "s"
FOR bottles = 4 TO 1 STEP -1
PRINT STR$(bottles) + " bottle" + suffix$ + " of beer on the wall, ";
PRINT STR$(bottles) + " bottle" + suffix$ + " of beer."
PRINT "Take one down and pass it around, ";
IF bottles > 1 THEN
IF bottles = 2 THEN suffix$ = ""
PRINT STR$(bottles - 1) + " bottle" + suffix$ + " of beer on the wall..."
ELSE
ELSE
PRINT "no more bottles of beer on the wall..."
x = 0
END IF
END IF
PRINT
IF b - 1 <> 1 THEN
NEXT bottles
y = 1

ELSE
PRINT "No more bottles of beer on the wall, no more bottles of beer."
y = 0
PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."
END IF
END</syntaxhighlight>
PRINT b; a$; s$(x); b$; c$; b; a$; s$(x); b$; "."; g$; d$; b - 1; a$; s$(y); b$; c$; g$

b = b - 1
==={{header|QuickBASIC}}===
WEND
{{works with|QuickBASIC|4.5}}
PRINT e$; a$; "s"; b$; c$; e$; a$; "s"; b$; "."; g$; f$; a$; "s"; b$; c$
====Sound====
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
This version plays the tune 100 times while printing out the lyrics (not synchronized).
DATA "No more","Go to the store and buy some more. 99"
<syntaxhighlight lang="qbasic">PLAY "<"
END</lang>
FOR x = 99 TO 0 STEP -1
PRINT x; "bottles of beer on the wall"
PRINT x; "bottles of beer"
PRINT "Take one down, pass it around"
PRINT x-1; "bottles of beer on the wall"
PRINT
PLAY "e-8e-8e-8<b-8b-8b-8>e-8e-8e-8e-4"'X bottles of beer on the wall
PLAY "f8f8f8c8c8c8f4"'X bottles of beer
PLAY "d4d8d8 N0 d8d8d8d4"'take one down, pass it around
PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"'X-1 bottles of beer on the wall
NEXT x</syntaxhighlight>

====Text====
<syntaxhighlight lang="qbasic">FOR x = 99 TO 1 STEP -1
PRINT x; "bottles of beer on the wall"
PRINT x; "bottles of beer"
PRINT "Take one down, pass it around"
PRINT x-1; "bottles of beer on the wall"
PRINT
NEXT x</syntaxhighlight>


==={{header|REALbasic}}===
==={{header|REALbasic}}===
Place the following in the "open" event of a console application.
Place the following in the "open" event of a console application.
<lang vb>dim bottles as Integer = 99
<syntaxhighlight lang="vb">dim bottles as Integer = 99
While bottles > 0
While bottles > 0
Print(str(bottles) + " bottles of beer on the wall")
Print(str(bottles) + " bottles of beer on the wall")
Line 784: Line 977:
bottles = bottles - 1
bottles = bottles - 1
Print(str(bottles) + " bottles of beer on the wall")
Print(str(bottles) + " bottles of beer on the wall")
Wend</lang>
Wend</syntaxhighlight>


==={{header|Run BASIC}}===
==={{header|Run BASIC}}===
<lang Runbasic>b$ = " bottles"
<syntaxhighlight lang="runbasic">b$ = " bottles"
for bottles = 99 To 1 Step -1
for bottles = 99 To 1 Step -1
If (bottles = 1) then b$ = " bottle"
If (bottles = 1) then b$ = " bottle"
Line 798: Line 991:
print bottles - 1;b$;" of beer on the wall.";chr$(10)
print bottles - 1;b$;" of beer on the wall.";chr$(10)
end if
end if
next bottles</lang>
next bottles</syntaxhighlight>

==={{header|Sinclair ZX81 BASIC}}===
Scrolls after each line so doesn't run out of screen space and stop prematurely!
<syntaxhighlight lang="basic">10 FOR N=99 TO 1 STEP -1
20 SCROLL
30 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER ON THE WALL"
40 SCROLL
50 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER"
60 SCROLL
70 PRINT "TAKE ONE DOWN, PASS IT AROUND"
80 SCROLL
90 PRINT STR$(N-1)+" BOTTLE"+("S" AND N<>2)+" OF BEER ON THE WALL"
100 SCROLL
110 NEXT N</syntaxhighlight>


==={{header|smart BASIC}}===
==={{header|smart BASIC}}===
<lang qbasic>READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$
<syntaxhighlight lang="qbasic">READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$
g$ = CHR$(10)
g$ = CHR$(10)
WHILE b > 0
WHILE b > 0
Line 820: Line 1,027:
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
DATA "No more","Go to the store and buy some more. 99"
DATA "No more","Go to the store and buy some more. 99"
END</lang>
END</syntaxhighlight>


==={{header|TI-83 BASIC}}===
==={{header|TI-83 BASIC}}===
<lang ti83b>PROGRAM:BEER
<syntaxhighlight lang="ti83b">PROGRAM:BEER
:For(I,99,1,-1)
:For(I,99,1,-1)
:Disp I
:Disp I
Line 835: Line 1,042:
:Disp "BOTTLES OF BEER"
:Disp "BOTTLES OF BEER"
:Disp "ON THE WALL."
:Disp "ON THE WALL."
:End</syntaxhighlight>
:End
</lang>



==={{header|TI-89 BASIC}}===
==={{header|TI-89 BASIC}}===
<lang ti89b>Prgm
<syntaxhighlight lang="ti89b">Prgm
Local i,plural,clockWas,t,k,wait
Local i,plural,clockWas,t,k,wait
"s" → plural
"s" → plural
Line 886: Line 1,091:
ClockOff
ClockOff
ENdIf
ENdIf
EndPrgm</lang>
EndPrgm</syntaxhighlight>


==={{header|True BASIC}}===
==={{header|Tiny_Basic}}===
{{works with|TinyBasic}}
<lang basic>
<syntaxhighlight lang="basic">100 LET N=99
! TrueBASIC v6.007
105 GOSUB 120
110 IF N>0 THEN GOTO 105
115 END
120 GOSUB 155
125 GOSUB 175
130 PRINT "Take one down, pass it round"
135 LET N=N-1
140 GOSUB 155
145 PRINT ""
150 RETURN
155 IF N=0 THEN PRINT "No more bottles of beer on the wall"
160 IF N=1 THEN PRINT N," bottle of beer on the wall"
165 IF N>1 THEN PRINT N," bottles of beer on the wall"
170 RETURN
175 IF N=0 THEN PRINT "No more bottles of beer"
180 IF N=1 THEN PRINT N," bottle of beer"
185 IF N>1 THEN PRINT N," bottles of beer"
190 RETURN</syntaxhighlight>

==={{header|True_BASIC}}===
<syntaxhighlight lang="basic">! TrueBASIC v6.007


LET bottles = 99
LET bottles = 99
Line 913: Line 1,139:
PRINT "Press any key to sleep it off"
PRINT "Press any key to sleep it off"
GET KEY done
GET KEY done
END</syntaxhighlight>
END
</lang>


==={{header|Visual Basic}}===
==={{header|Visual Basic}}===
<lang vb>Sub Main()
<syntaxhighlight lang="vb">Sub Main()
Const bottlesofbeer As String = " bottles of beer"
Const bottlesofbeer As String = " bottles of beer"
Const onthewall As String = " on the wall"
Const onthewall As String = " on the wall"
Line 949: Line 1,174:
Debug.Print "Go to the store, buy some more"
Debug.Print "Go to the store, buy some more"
Debug.Print "99" & bottlesofbeer & onthewall
Debug.Print "99" & bottlesofbeer & onthewall
End Sub</lang>
End Sub</syntaxhighlight>


==={{header|Visual Basic .NET}}===
==={{header|Visual Basic .NET}}===
Line 955: Line 1,180:


====Classic====
====Classic====
<lang vbnet>Module Module1
<syntaxhighlight lang="vbnet">Module Module1
Sub Main()
Sub Main()
Dim Bottles As Integer
Dim Bottles As Integer
Line 974: Line 1,199:
Next
Next
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


====String interpolation====
====String interpolation====
<lang vbnet>Module Program
<syntaxhighlight lang="vbnet">Module Program
Function Plural(count As Integer) As String
Function Plural(count As Integer) As String
Return If(count = 1, "", "s")
Return If(count = 1, "", "s")
Line 991: Line 1,216:
Next
Next
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


====Mental mutilation beyond hope of regeneration====
====Mental mutilation beyond hope of regeneration====
<lang vbnet>Option Explicit Off
<syntaxhighlight lang="vbnet">Option Explicit Off
Option Strict Off
Option Strict Off


Line 1,022: Line 1,247:
If i > 0 Then GoTo START
If i > 0 Then GoTo START
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


====Python====
====Python====
<lang vbnet>Option Strict Off
<syntaxhighlight lang="vbnet">Option Strict Off


Module Program
Module Program
Line 1,032: Line 1,257:
Console.Write(String.Join(vbLf,Enumerable.Range(1,99).Reverse.Select(Function(x)s(x)+a+b+s(x)+a+vbLf+c+s(x-1)+a+b)))
Console.Write(String.Join(vbLf,Enumerable.Range(1,99).Reverse.Select(Function(x)s(x)+a+b+s(x)+a+vbLf+c+s(x-1)+a+b)))
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


====With sound====
====With sound====
Line 1,051: Line 1,276:


Options and imports statements (all parts must be in one file):
Options and imports statements (all parts must be in one file):
<lang vbnet>Option Explicit On
<syntaxhighlight lang="vbnet">Option Explicit On
Option Infer On
Option Infer On
Option Strict On
Option Strict On
Line 1,057: Line 1,282:
Imports System.Globalization
Imports System.Globalization
Imports System.Runtime.InteropServices
Imports System.Runtime.InteropServices
Imports System.Threading</lang>
Imports System.Threading</syntaxhighlight>


Helper to parse command-line arguments:
Helper to parse command-line arguments:
<lang vbnet>
<syntaxhighlight lang="vbnet">
Module ArgHelper
Module ArgHelper
ReadOnly _ArgDict As New Dictionary(Of String, String)()
ReadOnly _ArgDict As New Dictionary(Of String, String)()
Line 1,098: Line 1,323:
End If
End If
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


Program:
Program:
<lang vbnet>Module Program
<syntaxhighlight lang="vbnet">Module Program
Function GetNumberSyllables(n As Integer) As IEnumerable(Of String)
Function GetNumberSyllables(n As Integer) As IEnumerable(Of String)
Static getTensPrefix As Func(Of Integer, IEnumerable(Of String)) =
Static getTensPrefix As Func(Of Integer, IEnumerable(Of String)) =
Line 1,295: Line 1,520:
End Sub
End Sub
End Module
End Module
</syntaxhighlight>
</lang>


{{out}}
{{out}}
Line 1,334: Line 1,559:


====Concurrent====
====Concurrent====
<lang vbnet>Module Program
<syntaxhighlight lang="vbnet">Module Program
Function Plural(count As Integer) As String
Function Plural(count As Integer) As String
Return If(count = 1, "", "s")
Return If(count = 1, "", "s")
Line 1,350: Line 1,575:
End Sub)
End Sub)
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


{{out}}
{{out}}
Line 1,379: Line 1,604:


====Less concurrent====
====Less concurrent====
<lang vbnet>Module Program
<syntaxhighlight lang="vbnet">Module Program
Function Plural(count As Integer) As String
Function Plural(count As Integer) As String
Return If(count = 1, "", "s")
Return If(count = 1, "", "s")
Line 1,398: Line 1,623:
End Sub)
End Sub)
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


{{out}}
{{out}}
Line 1,423: Line 1,648:
...</pre>
...</pre>


====<s>More</s>D<s> </s>R<s>con</s>U<s>current</s>NK====
====More concurrent====
<lang vbnet>Module Program
<syntaxhighlight lang="vbnet">Module Program
Function Plural(count As Integer) As String
Function Plural(count As Integer) As String
Return If(count = 1, "", "s")
Return If(count = 1, "", "s")
Line 1,449: Line 1,674:
End Sub)
End Sub)
End Sub
End Sub
End Module</lang>
End Module</syntaxhighlight>


{{out}}
{{out}}
Line 1,512: Line 1,737:
{{trans|Microsoft Small Basic}}
{{trans|Microsoft Small Basic}}
{{works with|Windows XBasic}}
{{works with|Windows XBasic}}
<syntaxhighlight lang="xbasic">PROGRAM "99bottles"
<lang xbasic>
PROGRAM "99bottles"
VERSION "0.0001"
VERSION "0.0001"


Line 1,538: Line 1,762:
NEXT n@@
NEXT n@@
END FUNCTION
END FUNCTION
END PROGRAM
END PROGRAM</syntaxhighlight>

</lang>
==={{header|Yabasic}}===
<syntaxhighlight lang="yabasic">b$ = " bottles"
for bottles = 99 to 1 step -1
if (bottles = 1) then b$ = " bottle" : fi
print bottles, b$, " of beer on the wall, "
print bottles , b$, " of beer"
print "Take one down, pass it around, "
if bottles = 1 then
print "no more bottles of beer on the wall.\n"
else
print bottles - 1, b$, " of beer on the wall."
print
end if
next bottles
end</syntaxhighlight>


==={{header|ZX Spectrum Basic}}===
==={{header|ZX Spectrum Basic}}===
<lang zxbasic>10 DEF FN n$(b)="no more" AND NOT b
<syntaxhighlight lang="zxbasic">10 DEF FN n$(b)="no more" AND NOT b
20 DEF FN m$(b)=(STR$ b) AND b
20 DEF FN m$(b)=(STR$ b) AND b
30 DEF FN o$(b)="s" AND (b>1)
30 DEF FN o$(b)="s" AND (b>1)
Line 1,557: Line 1,797:
140 PRINT
140 PRINT
150 NEXT i
150 NEXT i
160 PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."
160 PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."</syntaxhighlight>
</lang>


=={{header|VBA}}==
=={{header|VBA}}==
Line 1,564: Line 1,803:
plus a Static variable to count the number of bottles emptied.
plus a Static variable to count the number of bottles emptied.


<lang vb>Public Function countbottles(n As Integer, liquid As String) As String
<syntaxhighlight lang="vb">Public Function countbottles(n As Integer, liquid As String) As String
countbottles = IIf(n > 1, Format$(n), IIf(n = 0, "no more", "one")) & " bottle" & IIf(n = 1, "", "s") & " of " & liquid
countbottles = IIf(n > 1, Format$(n), IIf(n = 0, "no more", "one")) & " bottle" & IIf(n = 1, "", "s") & " of " & liquid
End Function
End Function
Line 1,585: Line 1,824:
End If
End If
End Sub</lang>
End Sub</syntaxhighlight>


Usage: type "drink 99" in the Immediate window of the VBA editor. If you're not a beer drinker, you can specify your own favourite drink as the second argument; for example:
Usage: type "drink 99" in the Immediate window of the VBA editor. If you're not a beer drinker, you can specify your own favourite drink as the second argument; for example:
Line 1,610: Line 1,849:
no more bottles of Johnnie Walker
no more bottles of Johnnie Walker
go to the store and buy some more
go to the store and buy some more
3 bottles of Johnnie Walker on the wall
3 bottles of Johnnie Walker on the wall</pre>

</pre>


=={{header|VBScript}}==
=={{header|VBScript}}==
===Simple Method===
===Simple Method===
<lang vb>sub song( numBottles )
<syntaxhighlight lang="vb">sub song( numBottles )
dim i
dim i
for i = numBottles to 0 step -1
for i = numBottles to 0 step -1
Line 1,652: Line 1,889:
end function
end function


song 3</lang>
song 3</syntaxhighlight>
{{Out}}
{{Out}}
<pre>3 bottles of beer on the wall
<pre>3 bottles of beer on the wall
Line 1,683: Line 1,920:
and replacing the code with the result of its evaluation.
and replacing the code with the result of its evaluation.


<lang vb>function pluralBottles( n )
<syntaxhighlight lang="vb">function pluralBottles( n )
select case n
select case n
case 1
case 1
Line 1,740: Line 1,977:
end sub
end sub


sing 3</lang>
sing 3</syntaxhighlight>

Latest revision as of 10:53, 12 October 2023

99 Bottles of Beer/Basic is part of 99 Bottles of Beer. You may find other members of 99 Bottles of Beer at Category:99 Bottles of Beer.

99 Bottles of Beer done in any of the BASIC-languages.

BASIC

Applesoft BASIC

H$ = "HELLO, WORLD!":B$ = " BOTTLES OF BEER":N$ =  CHR$ (13):W$ = " ON THE WALL" + N$: FOR B = 99 TO 1 STEP  - 1: PRINT B;B$W$B" "B$N$"TAKE ONE DOWN, PASS IT AROUND"N$B - 1;B$W$: NEXT

BaCon

With lyrics and punctuation taken from the 99-bottles-of-beer.net site. 

' 99 bottles of beer on the wall
DECLARE counter$
DECLARE bottle$
DECLARE ofbeer$ = "of beer"
DECLARE onthewall$ = "on the wall"

SUB howmany(b)
    LOCAL plural$
    plural$ = IIF$(b != 1, "s", "")
    bottle$ = "bottle" & plural$
    counter$ = IIF$(b >= 1, STR$(b), "no more")
END SUB
    
FOR bottles = 99 DOWNTO 0
    howmany(bottles)
    IF counter$ = "no more" THEN counter$ = "No more"
    PRINT counter$, bottle$, ofbeer$, onthewall$ FORMAT "%s %s %s %s, "
    IF counter$ = "No more" THEN counter$ = "no more"
    PRINT counter$, bottle$, ofbeer$ FORMAT "%s %s %s.\n"
    IF bottles > 0 THEN
        PRINT "Take one down and pass it around" FORMAT "%s, "
        howmany(bottles - 1)
    ELSE
        PRINT "Go to the store and buy some more" FORMAT "%s, "
        howmany(99)
    ENDIF
    PRINT counter$, bottle$, ofbeer$, onthewall$ FORMAT "%s %s %s %s.\n"
    IF bottles > 0 THEN PRINT
NEXT

BASIC256

#length of querter and eight note in ms
n4 = 1000 * 60 / 80 / 4
n8 = n4 / 2

#frequency of musical notes in hz
e = 330
ef = 311
b = 247
bf = 233
f = 349
c = 262
d = 294
ds = 311
a = 220

dim notes(1)
dim lengs(1)

# redim is automatic when using a {} list to assign an array
notes = {ef, ef, ef, bf, bf, bf, ef, ef, ef, ef, f , f , f , c , c , c , f , d , d , d , d , d , d , d , bf, bf, bf, c , c , ef, ef, ef, ef, ef}
lengs = {n8, n8, n8, n8, n8, n8, n8, n8, n8, n4, n8, n8, n8, n8, n8, n8, n4, n4, n8, n8, n8, n8, n8, n4, n8, n8, n8, n8, n8, n8, n8, n8, n8, n4 }

for x = 99 to 1 step -1
   for t = 0 to notes[?]-1
      if t = 0 then print x + " bottles of beer on the wall"
      if t = 11 then print x + " bottles of beer"
      if t = 18 then print "Take one down, pass it around"
      if t = 25 then print(x-1) + " bottles of beer on the wall"
      sound notes[t], lengs[t]
      pause .002
   next t
   print
next x

BBC BASIC

Versión más clásica 

REM 99 bottles of beer song BBC BASIC version
REM original code by Stelio Passaris (stelio.net)
:
a$=" bottle"
s$="s"
b$=" of beer"
c$=" on the wall..."
t$="Take one down and pass it around,"
:
VDU14:REM habilita el modo de paginación; pulsa shift para avanzar página.
FOR i% = 99 TO 1 STEP -1
IF i% = 1 THEN s$=""
IF i% < 99 THEN PRINT;i%;a$;s$;b$;c$;"."'
PRINT;i%;a$;s$;b$;c$;","'i%;a$;s$;b$;"."'t$
NEXT i%
PRINT"no more";a$;"s";b$;c$;"."
PRINT'"No more bottles of beer on the wall,"
PRINT"no more bottles of beer."
PRINT"Go to the store and buy some more,"
PRINT"99 bottles of beer on the wall."
VDU15:REM deshabilita el modo de paginación

Alternative version: 

      N_Bottles = 99
      
      beer$ = " of beer"
      wall$ = " on the wall"
      unit$ = "99 bottles"
      
      WHILE N_Bottles >= 0
        
        IF N_Bottles=0 THEN
          PRINT '"No more bottles" beer$ wall$ ", " unit$ beer$ "."
          PRINT "Go to the store and buy some more, ";
        ELSE
          PRINT 'unit$ beer$ wall$ ", " unit$ beer$ "."
          PRINT "Take one down and pass it around, ";
        ENDIF
        
        N_Bottles -= 1
        
        CASE N_Bottles OF
          WHEN 0:
            unit$ = "no more bottles"
          WHEN 1:
            unit$ = "1 bottle"
          OTHERWISE:
            unit$ = STR$((N_Bottles + 100) MOD 100) + " bottles"
        ENDCASE
        
        PRINT unit$ beer$ wall$ "."
        
      ENDWHILE
      
      END

bootBASIC

In bootBASIC lines are limited to 19 characters. 

5  a=99
10 print a ;
20 print " bottle";
22 if a-1 print "s";
24 print " ";
30 print "of beer ";
40 print "on the ";
50 print "wall!"
60 print a ;
70 print " bottle";
72 if a-1 print "s";
74 print " ";
80 print "of beer!"
90 print "Take one ";
100 print "down, pass";
110 print " it around!"
115 a=a-1
120 print a ;
130 print " bottle";
132 if a-1 print "s";
134 print " ";
140 print "of beer ";
150 print "on the ";
160 print "wall!"
170 print
180 if a goto 10

Commander X16 BASIC

10 PSGINIT
20 PSGPLAY 0, "T220L4"
30 FOR Z=99 TO 1 STEP -1
40 PRINT Z; "BOTTLE";
50 IF Z <> 1 THEN PRINT "S";
60 PRINT " ";
70 PRINT "OF BEER ON THE WALL!"
80 PSGPLAY 0,"GGGDDDGGGG2."
90 PRINT Z; "BOTTLE";
100 IF Z <> 1 THEN PRINT "S";
110 PRINT " ";
120 PRINT "OF BEER!"
130 PSGPLAY 0,"AAAEEES0A2.A2.S1"
140 PRINT " TAKE ONE DOWN"
150 PSGPLAY 0,"F+2F+F+2."
160 PRINT " PASS IT AROUND"
170 PSGPLAY 0,"F+F+F+F+2."
180 PRINT Z-1; "BOTTLE";
190 IF Z <> 2 THEN PRINT "S";
200 PRINT " ";
210 PRINT "OF BEER ON THE WALL!"
220 PSGPLAY 0,"DDDDEF+GGGG2."
230 PRINT
240 NEXT Z


Chipmunk Basic

Works with: Chipmunk Basic version 3.6.4
Works with: GW-BASIC
10 cls
20 s$ = "s"
30 for bottles = 99 to 1 step -1
40 print bottles "bottle" s$ " of beer on the wall, "
50 print bottles "bottle" s$ " of beer."
60 print "Take one down and pass it around, "
70 if bottles = 2 then s$ = ""
80 if bottles > 1 then print (bottles-1)"bottle" s$ " of beer on the wall..." else print "no more bottles of beer on the wall..."
90 print
100 next bottles
110 print "No more bottles of beer on the wall,"
120 print "no more bottles of beer."
130 print "Go to the store and buy some more,"
140 print "99 bottles of beer on the wall."
150 end

Commodore BASIC

You may need to remove the semicolon on line 20 when executing on the VIC-20. Also, this looks best on the machines with 40 or more columns. 

10 dim bo$(2):bo$(0)="bottle":bo$(1)="bottles"
15 print chr$(147);chr$(14);"99 Bottles of Beer Song"
20 print:print "Start with how many bottles";
25 input nb
30 if nb<1 then print "Sorry, must start with at least one. Try again.":goto 20
40 print
50 for c=nb to 1 step -1
60 c$=str$(c):if c=0 then c$=" No more"
65 br$=str$(c-1): if c-1=0 then br$=" No more"
70 print chr$(147)
80 print c$;" ";bo$((c=1)+1);" of beer on the wall,"
90 print c$;" ";bo$((c=1)+1);" of beer."
100 print:print "    Take one down, pass it around...":print
110 print br$;" ";bo$((c-1=1)+1);" of beer on the wall!"
120 for t=1 to 1200:get k$:if k$="" then next t
130 if k$="q" then end
135 rem move to next verse
140 print:next c

Craft Basic

'99 bottles of beer on the wall

for beer = 99 to 1 step - 1

	if beer > 1 then

		print beer, " bottles of beer on the wall."
		print beer, " bottles of beer!"

	endif

	if beer = 1 then

		print beer, " bottle of beer on the wall."
		print "1 more bottle of beer!"

	endif

	print "take one down and pass it around..."

	wait

next beer

alert "All out of beer!"

end

Creative Basic

window version

DEF Win:WINDOW
DEF Close:CHAR
DEF ScreenSizeX,ScreenSizeY:INT

DECLARE VSpace(Number:UINT)
DECLARE CLR()

DEF TheLine$[4],Number$,Erase:STRING
DEF TheLine,TextHeight,TextWidth:INT
DEF TextX,TextY:UINT

TheLine$[0]="bottles"
TheLine$[1]="of beer on the wall."
TheLine$[2]="of beer."
TheLine$[3]="Take one down, pass it around."

BottlesOfBeer=99
TheLine=1

GETSCREENSIZE(ScreenSizeX,ScreenSizeY)

WINDOW Win,0,0,ScreenSizeX,ScreenSizeY,@MINBOX|@MAXBOX|@SIZE,0,"99 Bottles Of Beer",MainHandler

GETTEXTSIZE(Win,TheLine$[3],TextWidth,TextHeight)

Erase$=STRING$(TextWidth," ")

PRINT Win,"Let's sing a song."

VSpace(2)

'1.2 seconds.
STARTTIMER Win,1200 

GOSUB Sing

WAITUNTIL Close=1

CLOSEWINDOW Win

END

SUB MainHandler

     SELECT @CLASS

     CASE @IDCLOSEWINDOW

     Close=1

     CASE @IDTIMER

     GOSUB Sing

     ENDSELECT

RETURN

SUB Sing

     DEF Sing:INT

     Sing=TheLine

     MOVE Win,TextX,TextY

     Number$=STR$(BottlesOfBeer)

     IF BottlesOfBeer=0

          Number$="No more"
	  TheLine$[0]="bottles"
	  TheLine$[3]="Go to the store and buy some more."
	
     ENDIF
				
     IF BottlesOfBeer=1 

	  TheLine$[0]="bottle"
	  TheLine$[3]="Take it down, pass it around."
	
     ENDIF

     IF TheLine=4 THEN Sing=1
	
     IF (TheLine=1)|(TheLine=2)|(TheLine=4)

	  IF BottlesOfBeer>-1 THEN PRINT Win,Number$+" "+TheLine$[0]+" "+TheLine$[Sing] ELSE GOSUB TheEnd
				
     ELSE
		
	  PRINT Win,TheLine$[3]

	  BottlesOfBeer=BottlesOfBeer-1 

     ENDIF	

     TheLine=TheLine+1
		
     VSpace(1)

     IF TheLine>4
			
           TheLine=1
						 
	   VSpace(1)

     ENDIF

RETURN

SUB TheEnd

     PRINT Win,"What's the problem, offishur?"

     STOPTIMER Win

     VSpace(2)

     MOVE Win,TextX,TextY:PRINT Win,"That's all."
		
RETURN

SUB VSpace(Number:UINT)

     TextY=TextY+(TextHeight*Number)

     IF TextY+(TextHeight*8)>ScreenSizeY THEN CLR()

RETURN 

SUB CLR()

     FOR X=0 TO ScreenSizeY

          MOVE Win,0,X:PRINT Win,Erase$

          TextY=8

     NEXT X

RETURN

console only version

Rather quickly written and dirty. 

REM Using the ESC key to exit will not work in console programs under Windows 95/98 or ME.

DECLARE SingWallLn()
DECLARE Delay1()
DECLARE Delay2()
'To use ESC Key to exit.
DECLARE Quit()
DECLARE TheEnd()

DEF Bottles:UINT
DEF Number$,Again$:STRING

OPENCONSOLE

PRINT"I'm going to sing a song.":PRINT

Delay1()

LABEL StartSong

Bottles=99

DO 	
     Quit()

     SingWallLn():Delay1()

     PRINT LTRIM$(STR$(Bottles))+Number$+" of beer.":Delay1()

     IF Bottles>0 THEN PRINT"Take one down, pass it around." ELSE PRINT"Take it down, pass it around.":Delay1()

     Bottles=Bottles-1
	
     SingWallLn()

     Delay2()

PRINT:PRINT

UNTIL Bottles=0

Delay2()

ClS

LABEL Question

INPUT"Sing it again (y or n)?",Again$

SELECT Again$

	CASE("y")
	CASE("Y")

	CLS

	GOTO StartSong

	CASE "n"
	CASE "N"

	CLS

	PRINT"Fine, be that way.":Delay2()

	TheEnd()

ENDSELECT
	
PRINT"Sorry, I didn't understand.":PRINT

GOTO Question

'Keep from running into subroutines.
END

SUB SingWallLn()

     IF Bottles=1 THEN Number$=" bottle" ELSE Number$=" bottles"

     PRINT LTRIM$(STR$(Bottles))+Number$+" of beer on the wall."

RETURN

SUB Delay1()

     FOR X=1 TO 7000:NEXT X

RETURN

SUB Delay2()

     FOR X=1 TO 1750000:NEXT X

RETURN

SUB Quit()

     'Close program by pressing the ESC key.
     'Will not work in console under Windows 95/98 or ME.
     IF GETKEYSTATE(0x1B) THEN TheEnd()

RETURN

SUB TheEnd()

     CLOSECONSOLE

     END

RETURN

FBSL

This is a OO version, using FBSL v3.5 Beta 

#AppType Console

Class Wall
	bottles

	Sub Initialize(%n = 99)
		bottles = n
	End Sub

	Method Denom()
		if bottles+1 > 1 then
			return "one"
		elseif bottles+1 = 1 then
			return "it"
		end if
	End Method
	
	Method StockUp( %n = 99 ) 
		bottles = n
	End Method
	
	Method TakeOneDown()
		bottles = bottles - 1
	end Method
	
	Method Pluraliser()
		if bottles > 1 then
			return "s"
		else
			return ""
		end if
	end method
	
	Method Sing()
		print bottles, " bottle", Pluraliser(), " of beer on the wall"
		print bottles, " bottle", Pluraliser(), " of beer"
		TakeOneDown()
		print "take ", Denom(), " down and pass it round"
		if bottles > 0 then
			print bottles, " bottle", Pluraliser(), " of beer on the wall"
			print
		else
			print "no more bottles of beer on the wall"
			print 
			print "no more bottles of beer on the wall"
			print "no more bottles of beer on the wall"
			print "go to the store and buy some more"
			StockUp(99)
			print bottles, " bottle", Pluraliser(), " of beer on the wall"
			print
		end if
		return bottles
	End Method
	
End Class

Dim BeerSong as new Wall(99)

while BeerSong.Sing() <> 99
end while

FreeBASIC

Normal version

' FB 1.05.0 Win64

Dim As Integer bottles = 99
Dim As String b = " bottles "

Do
  Print Str(bottles); b; "of beer hanging on the wall"  
  Print Str(bottles); b; "of beer hanging on the wall" 
  Print "And if one bottle of beer should accidently be drunk"
  bottles -= 1
  If bottles = 1 Then 
    b = " bottle "
  ElseIf bottles = 0 Then
    b = " bottles "
  End If
  Print "There'll be"; bottles; b; "of beer hanging on the wall"
  Print
Loop Until bottles = 0 

Print "Press any key to sleep it off"
Sleep

Code golf

Var b=" bottle",s="s",f=" of beer",w=" on the wall",_
t="Take one down and pass it around, ",n="o more",p="."
For a As Byte=99 To 1 Step-1
?Str(a);b;*Iif(a>1,@s,0);f;w;",";a;b;*Iif(a>1,@s,0);f;p
If a>1 Then ?t;Str(a-1);b;*Iif(a>2,@s,0);f;w;p:?
Next
?t;"n";n;b;s;f;w;p:?:?"N";n;b;s;f;w;", n";n;b;s;f;p
?"Go to the store and buy some more, 99";b;s;f;w;p
Sleep

FUZE BASIC

CLS
DIM s$(1)
READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$
g$ = chr$(10)
WHILE b > 0 CYCLE
    PRINT b;a$;s$(b>1);b$;c$;b;a$;s$(b>1);b$;".";g$;d$;b-1;a$;s$(b-1<>1);b$;c$;g$
    b = b - 1
REPEAT
PRINT e$;a$;"s";b$;c$;e$;a$;"s";b$;".";g$;f$;a$;"s";b$;c$
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
DATA "No more","Go to the store and buy some more. 99"
END

GW-BASIC

Just a basic loop counting down to one. No big deal. Note that at BOTTLES=1, it is not grammatically correct. 

10 FOR BOTTLES = 99 TO 1 STEP -1
20    PRINT BOTTLES " bottles of beer on the wall"
30    PRINT BOTTLES " bottles of beer"
40    PRINT "Take one down, pass it around"
50    PRINT BOTTLES-1 " bottles of beer on the wall"
60 NEXT BOTTLES

Integer BASIC

IMPORTANT NOTE: Integer BASIC was written (and hand-assembled by Woz himself) for the Apple 1 and original Apple 2. The Apple 1 has NO support for lower-case letters, and it was an expensive (and later) option on the Apple 2. The UPPER-CASE output of this example accurately represents the only reasonable solution for those target devices, and therefore cannot be "fixed" for mixed case, only deleted. 

E000G (APPLE II)
E000R (APPLE I)
10 REM -------------------------
11 REM BEERSONG IN APPLE INTEGER
12 REM BASIC BY BARRYM 2011-8-21
13 REM THANKS : APPLEWIN1.17.2.0
14 REM THANKS ALSO : POM1 0.7B
15 REM -------------------------
16 REM PRINTS THE COMPLETE UPPER
17 REM CASE LYRICS ON AN APPLE I
18 REM OR AN 'ORIGINAL' APPLE II
19 REM WITH WOZ'S INTEGER BASIC.
20 REM -------------------------
21 REM THIS BASIC HAS AN UNUSUAL
22 REM 'THEN', WHICH EXECUTES OR
23 REM SKIPS ONE (AND ONLY ONE!)
24 REM STATEMENT.  THIS CONFUSED
25 REM US KIDS REGULARLY WHEN WE
26 REM TRIED TRANSLATING INTEGER
27 REM BASIC GAMES TO APPLE$OFT!
30 REM -------------------------
40 FOR B=99 TO 98 STEP 0: PRINT : FOR W=0 TO 2: IF W<2 THEN 70
50 IF B THEN PRINT "TAKE ONE DOWN AND PASS IT AROUND";:B=B-1
60 IF B+1 THEN 70:B=99: PRINT "GO TO THE STORE AND BUY SOME MORE";
70 IF W THEN PRINT ",": IF B THEN PRINT B;: IF B=0 THEN PRINT "NO MORE";
80 PRINT " BOTTLE";: IF B#1 THEN PRINT "S";: PRINT " OF BEER";
90 IF W#1 THEN PRINT " ON THE WALL";: IF W THEN PRINT ".": NEXT W,B: END 
RUN

Liberty BASIC

For bottles = 99 To 1 Step -1
    song$ = song$ + str$(bottles) + " bottle"
    If (bottles > 1) Then song$ = song$ + "s"
    song$ = song$ + " of beer on the wall, " + str$(bottles) + " bottle"
    If (bottles > 1) Then song$ = song$ + "s"
    song$ = song$ + " of beer,"  + chr$(13) + chr$(10) + "Take one down, pass it around, " + str$(bottles - 1) + " bottle"
    If (bottles > 2) Or (bottles = 1) Then song$ = song$ + "s"
    song$ = song$ + " of beer on the wall." + chr$(13) + chr$(10)
Next bottles
song$ = song$ + "No more bottles of beer on the wall, no more bottles of beer." _
        + chr$(13) + chr$(10) + "Go to the store and buy some more, 99 bottles of beer on the wall."

Print song$

Microsoft Small Basic

For n = 99 To 1 Step -1
  If n = 1 Then
    bottleText1 = "1 bottle"
    bottleText2 = "No more bottles"
  ElseIf n = 2 then
    bottleText1 = "2 bottles"
    bottleText2 = "1 bottle"
  Else
    bottleText1 = n + " bottles"
    bottleText2 = n - 1 + " bottles"   
  EndIf
  TextWindow.WriteLine(bottleText1 + " of beer on the wall")
  TextWindow.WriteLine(bottleText1 + " of beer")
  TextWindow.WriteLine("Take one down, pass it around")
  TextWindow.WriteLine(bottleText2 + " of beer on the wall")
  TextWindow.WriteLine("")
EndFor

Minimal BASIC

Translation of: BBC BASIC

The cases of 99 bottles and of 1 bottle are extracted from the loop. The variable S$ is replaced by litterals, T$ is divided into two variables (In Minimal BASIC strings assignable to string variables may contain up to 18 chars). 

10 REM 99 Bottles of Beer
20 LET A$ = " bottle"
30 LET B$ = " of beer"
40 LET C$ = " on the wall..."
50 LET T$ = "Take one down and"
60 LET U$ = " pass it around,"
70 REM 99 bottles
80 PRINT 99; A$; "s"; B$; C$; ","
90 PRINT 99; A$; "s"; B$; "."
100 PRINT T$; U$
110 FOR I = 98 TO 2 STEP -1
120 PRINT I; A$; "s"; B$; C$; "."
130 PRINT
140 PRINT I; A$; "s"; B$; C$; ","
150 PRINT I; A$; "s"; B$; "."
160 PRINT T$; U$
170 NEXT I
180 REM 1 bottle
190 PRINT 1; A$; B$; C$; "."
200 PRINT
210 PRINT 1; A$; B$; C$; ","
220 PRINT 1; A$; B$; "."
230 PRINT T$; U$
240 PRINT "no more"; A$; "s"; B$; C$; "."
250 PRINT
260 PRINT "No more bottles of beer on the wall,"
270 PRINT "no more bottles of beer."
280 PRINT "Go to the store and buy some more,"
290 PRINT "99 bottles of beer on the wall."
300 END

MSX Basic

10 FOR X = 99 TO 1 STEP -1
20 PRINT X; "bottles of beer on the wall"
30 PRINT X; "bottles of beer"
40 PRINT "Take one down, pass it around"
50 PRINT X-1; "bottles of beer on the wall"
60 PRINT
70 NEXT X

OxygenBasic

int    x=99
string cr,tab,pr,bottles,bottlem,remain
cr=chr(13) chr(10)
tab=chr(9)
pr="99 BOTTLES" cr cr
bottles=" bottles "
bottlem=" bottles "
'
for x=99 to 1 step -1
  if x=1
    bottles=" bottle "
    bottlem=" bottles "
    remain="No"
  elseif x=2
    bottlem=" bottle "
    remain=x-1
  else
    remain=x-1
  end if
  pr+=
  x bottles      "of beer on the wall" cr + 
  x bottles      "of beer" cr +
                 "Take one down, pass it around" cr +
  remain bottlem "of beer on the wall" cr +
  cr
next
'
putfile "t.txt",pr

PowerBASIC

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG

    DIM bottles%
    DIM b$
    DIM done$
    bottles% = 99
    b$ = " bottles "
    DO
        PRINT bottles%; b$; "of beer hanging on the wall"
        PRINT bottles%; b$; "of beer..."
        PRINT "And if one bottle of beer should accidentally be drunk"
        bottles% = bottles% - 1
        IF bottles% = 1 THEN
            b$ = " bottle "
        ELSEIF bottles% = 0 THEN
            b$ = " bottles "
        ELSE
            ' Press on!
        END IF
        PRINT "There'll be"; bottles; b$; "of beer hanging on the wall"
        PRINT
    LOOP UNTIL bottles% = 0


    CON.INPUT("Press any key to sleep it off",done$)

END FUNCTION

PureBasic

Normal version

If OpenConsole()
  Define Bottles=99
  While Bottles
    PrintN(Str(Bottles)+" bottles of beer on the wall")
    PrintN(Str(Bottles)+" bottles of beer")
    PrintN("Take one down, pass it around")
    Bottles-1
    PrintN(Str(Bottles)+" bottles of beer on the wall"+#CRLF$)
  Wend
  
  PrintN(#CRLF$+#CRLF$+"Press ENTER to exit"):Input()
  CloseConsole()
EndIf

An object-oriented solution

Prototype Wall_Action(*Self, Number.i)

Structure WallClass
  Inventory.i
  AddBottle.Wall_Action
  DrinkAndSing.Wall_Action
EndStructure

Procedure.s _B(n, Short=#False)
  Select n
    Case 0 : result$="No more bottles "
    Case 1 : result$=Str(n)+" bottle of beer"
    Default: result$=Str(n)+" bottles of beer"
  EndSelect
  If Not Short: result$+" on the wall": EndIf
  ProcedureReturn result$+#CRLF$
EndProcedure

Procedure PrintBottles(*Self.WallClass, n)
  Bottles$=" bottles of beer "
  Bottle$ =" bottle of beer "
  txt$ = _B(*Self\Inventory)
  txt$ + _B(*Self\Inventory, #True)
  txt$ + "Take one down, pass it around"+#CRLF$
  *Self\AddBottle(*Self, -1)
  txt$ + _B(*self\Inventory)
  PrintN(txt$)
  ProcedureReturn *Self\Inventory
EndProcedure

Procedure AddBottle(*Self.WallClass, n)
  i=*Self\Inventory+n
  If i>=0
    *Self\Inventory=i
  EndIf
EndProcedure

Procedure InitClass()
  *class.WallClass=AllocateMemory(SizeOf(WallClass))
  If *class
    InitializeStructure(*class, WallClass)
    With *class
      \AddBottle    =@AddBottle()
      \DrinkAndSing =@PrintBottles()
    EndWith
  EndIf
  ProcedureReturn *class
EndProcedure

If OpenConsole()
  *MyWall.WallClass=InitClass()
  If *MyWall
    *MyWall\AddBottle(*MyWall, 99)
    While *MyWall\DrinkAndSing(*MyWall, #True): Wend
    ;
    PrintN(#CRLF$+#CRLF$+"Press ENTER to exit"):Input()
    CloseConsole()
  EndIf
EndIf

QB64

CBTJD: 2020/03/08

  • Manages grammatical support for "1 bottle of beer" and "No more bottles of beer".
A$ = "bottle": B$ = " of beer": C$ = " on the wall": D$ = " Take one down, pass it around": E$ = " No more "
FOR B = 99 TO 1 STEP -1
    S$ = STRING$(ABS(B > 1), "s")
    PRINT B; A$; S$; B$; C$: PRINT B; A$; S$; B$: PRINT D$
    SELECT CASE B
        CASE 2: PRINT B - 1; A$; B$; C$
        CASE 1: PRINT E$; A$; "s"; B$; C$
        CASE ELSE: PRINT B - 1; A$; S$; B$; C$
    END SELECT
    PRINT
NEXT

QBasic

Works with: QBasic version 1.1
Works with: QuickBasic version 4.5
suffix$ = "s"
FOR bottles = 4 TO 1 STEP -1
    PRINT STR$(bottles) + " bottle" + suffix$ + " of beer on the wall, ";
    PRINT STR$(bottles) + " bottle" + suffix$ + " of beer."
    PRINT "Take one down and pass it around, ";
    IF bottles > 1 THEN
        IF bottles = 2 THEN suffix$ = ""
        PRINT STR$(bottles - 1) + " bottle" + suffix$ + " of beer on the wall..."
    ELSE
        PRINT "no more bottles of beer on the wall..."
    END IF
    PRINT
NEXT bottles

PRINT "No more bottles of beer on the wall, no more bottles of beer."
PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."
END

QuickBASIC

Works with: QuickBASIC version 4.5

Sound

This version plays the tune 100 times while printing out the lyrics (not synchronized). 

PLAY "<"
FOR x = 99 TO 0 STEP -1
  PRINT x; "bottles of beer on the wall"
  PRINT x; "bottles of beer"
  PRINT "Take one down, pass it around"
  PRINT x-1; "bottles of beer on the wall"
  PRINT
  PLAY "e-8e-8e-8<b-8b-8b-8>e-8e-8e-8e-4"'X bottles of beer on the wall
  PLAY "f8f8f8c8c8c8f4"'X bottles of beer
  PLAY "d4d8d8 N0 d8d8d8d4"'take one down, pass it around
  PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"'X-1 bottles of beer on the wall
NEXT x

Text

FOR x = 99 TO 1 STEP -1
  PRINT x; "bottles of beer on the wall"
  PRINT x; "bottles of beer"
  PRINT "Take one down, pass it around"
  PRINT x-1; "bottles of beer on the wall"
  PRINT
NEXT x

REALbasic

Place the following in the "open" event of a console application. 

dim bottles as Integer = 99
While bottles > 0
   Print(str(bottles) + " bottles of beer on the wall")
   Print(str(bottles) + " bottles of beer")
   Print("Take one down, pass it around")
   bottles = bottles - 1
   Print(str(bottles) + " bottles of beer on the wall")
Wend

Run BASIC

b$ = " bottles"
for bottles = 99 To 1 Step -1
   If (bottles = 1) then b$ = " bottle"
   print  bottles;b$;" of beer on the wall, "
   print bottles ;b$;" of beer"
   print "Take one down, pass it around, "
   if bottles = 1 then 
      print "No bottles of beer on the wall"
   else
      print bottles - 1;b$;" of beer on the wall.";chr$(10)
   end if
next bottles

Sinclair ZX81 BASIC

Scrolls after each line so doesn't run out of screen space and stop prematurely! 

10 FOR N=99 TO 1 STEP -1
20 SCROLL
30 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER ON THE WALL"
40 SCROLL
50 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER"
60 SCROLL
70 PRINT "TAKE ONE DOWN, PASS IT AROUND"
80 SCROLL
90 PRINT STR$(N-1)+" BOTTLE"+("S" AND N<>2)+" OF BEER ON THE WALL"
100 SCROLL
110 NEXT N

smart BASIC

READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$
g$ = CHR$(10)
WHILE b > 0
    IF b>1 THEN
        x=1
    ELSE
        x=0
    ENDIF
    IF b-1 <> 1 THEN
        y=1
    ELSE
        y=0
    ENDIF
PRINT b;a$;s$(x);b$;c$;b;a$;s$(x);b$;".";g$;d$;b-1;a$;s$(y);b$;c$;g$
b = b - 1
END WHILE
PRINT e$;a$;"s";b$;c$;e$;a$;"s";b$;".";g$;f$;a$;"s";b$;c$
DATA 99,"","s"," bottle"," of beer"," on the wall. ","Take one down, pass it around. "
DATA "No more","Go to the store and buy some more. 99"
END

TI-83 BASIC

PROGRAM:BEER
:For(I,99,1,-1)
:Disp I
:Disp "BOTTLES OF BEER"
:Disp "ON THE WALL,"
:Disp I
:Pause "BOTTLES OF BEER,"
:Disp "TAKE ONE DOWN,"
:Disp "PASS IT AROUND,"
:Disp I-1
:Disp "BOTTLES OF BEER"
:Disp "ON THE WALL."
:End

TI-89 BASIC

Prgm
  Local i,plural,clockWas,t,k,wait
  "s" → plural
  0 → k
  isClkOn() → clockWas

  Define wait() = Prgm
  EndPrgm

  ClockOn

  For i,99,0,–1
    Disp ""
    Disp string(i) & " bottle" & plural & " of beer on the"
    Disp "wall, " & string(i) & " bottle" & plural & " of beer."

    getTime()[3]→t
    While getTime()[3] = t and k = 0 : getKey() → k : EndWhile
    If k ≠ 0 Then : Exit : EndIf

    Disp "Take one down, pass it"
    Disp "around."

    getTime()[3]→t
    While getTime()[3] = t and k = 0 : getKey() → k : EndWhile
    If k ≠ 0 Then : Exit : EndIf

    If i - 1 = 1 Then
      "" → plural
    EndIf
    If i > 1 Then
        Disp string(i-1) & " bottle" & plural & " of beer on the"
        Disp "wall."
    Else
        Disp "No more bottles of beer on"
        Disp "the wall."
    EndIf

    getTime()[3]→t
    While abs(getTime()[3] - t)<2 and k = 0 : getKey() → k : EndWhile
    If k ≠ 0 Then : Exit : EndIf

  EndFor
  If not clockWas Then
    ClockOff
  ENdIf
EndPrgm

Tiny_Basic

Works with: TinyBasic
100 LET N=99
105 GOSUB 120
110 IF N>0 THEN GOTO 105
115 END
120 GOSUB 155
125 GOSUB 175
130 PRINT "Take one down, pass it round"
135 LET N=N-1
140 GOSUB 155
145 PRINT ""
150 RETURN
155 IF N=0 THEN PRINT "No more bottles of beer on the wall"
160 IF N=1 THEN PRINT N," bottle of beer on the wall"
165 IF N>1 THEN PRINT N," bottles of beer on the wall"
170 RETURN
175 IF N=0 THEN PRINT "No more bottles of beer"
180 IF N=1 THEN PRINT N," bottle of beer"
185 IF N>1 THEN PRINT N," bottles of beer"
190 RETURN

True_BASIC

! TrueBASIC v6.007

LET bottles = 99
LET b$ = " bottles "

DO
	PRINT bottles; b$; "of beer hanging on the wall"
	PRINT bottles; b$; "f beer hanging on the wall"
	PRINT "And if one bottle of beer should accidentally be drunk"
	LET bottles = bottles -1
	IF bottles = 1 THEN
		LET b$ = " bottle "
	ELSEIF bottles = 0 THEN
		LET b$ = " bottles "
	ELSE
		! Press on
	END IF
	PRINT "There'll be"; bottles; b$; "of beer hanging on the wall"
	PRINT
LOOP UNTIL bottles = 0

PRINT "Press any key to sleep it off"
GET KEY done
END

Visual Basic

Sub Main()
    Const bottlesofbeer As String = " bottles of beer"
    Const onthewall As String = " on the wall"
    Const takeonedown As String = "Take one down, pass it around"
    Const onebeer As String = "1 bottle of beer"

    Dim bottles As Long

    For bottles = 99 To 3 Step -1
        Debug.Print CStr(bottles) & bottlesofbeer & onthewall
        Debug.Print CStr(bottles) & bottlesofbeer
        Debug.Print takeonedown
        Debug.Print CStr(bottles - 1) & bottlesofbeer & onthewall
        Debug.Print
    Next

    Debug.Print "2" & bottlesofbeer & onthewall
    Debug.Print "2" & bottlesofbeer
    Debug.Print takeonedown
    Debug.Print onebeer & onthewall
    Debug.Print

    Debug.Print onebeer & onthewall
    Debug.Print onebeer
    Debug.Print takeonedown
    Debug.Print "No more" & bottlesofbeer & onthewall
    Debug.Print

    Debug.Print "No" & bottlesofbeer & onthewall
    Debug.Print "No" & bottlesofbeer
    Debug.Print "Go to the store, buy some more"
    Debug.Print "99" & bottlesofbeer & onthewall
End Sub

Visual Basic .NET

Platform: .NET

Classic

Module Module1
   Sub Main()
       Dim Bottles As Integer
       For Bottles = 99 To 0 Step -1
           If Bottles = 0 Then
               Console.WriteLine("No more bottles of beer on the wall, no more bottles of beer.")
               Console.WriteLine("Go to the store and buy some more, 99 bottles of beer on the wall.")
               Console.ReadLine()
           ElseIf Bottles = 1 Then
               Console.WriteLine(Bottles & " bottle of beer on the wall, " & Bottles & " bottle of beer.")
               Console.WriteLine("Take one down and pass it around, no more bottles of beer on the wall.")
               Console.ReadLine()
           Else
               Console.WriteLine(Bottles & " bottles of beer on the wall, " & Bottles & " bottles of beer.")
               Console.WriteLine("Take one down and pass it around, " & (Bottles - 1) & " bottles of beer on the wall.")
               Console.ReadLine()
           End If
       Next
   End Sub
End Module

String interpolation

Module Program
    Function Plural(count As Integer) As String
        Return If(count = 1, "", "s")
    End Function

    Sub Main()
        For i = 99 To 1 Step -1
            Console.WriteLine($"{i} bottle{Plural(i)} of beer on the wall")
            Console.WriteLine($"{i} bottle{Plural(i)} of beer")
            Console.WriteLine($"Take one down, pass it around")
            Console.WriteLine($"{i - 1} bottle{Plural(i - 1)} of beer on the wall")
            Console.WriteLine()
        Next
    End Sub
End Module

Mental mutilation beyond hope of regeneration

Option Explicit Off
Option Strict Off

Module Program
    Sub Main
        i = 99
START:
        Console.Write(i)
        Console.Write(" bottle")
        If i > 1 Then Console.Write("s")
        Console.Write(" of beer on the wall")
        Console.WriteLine()
        Console.Write(i)
        Console.Write(" bottle")
        If i > 1 Then Console.Write("s")
        Console.Write(" of beer")
        Console.WriteLine()
        Console.Write($"Take one down, pass it around")
        Console.WriteLine()
        Console.Write(i - 1)
        Console.Write(" bottle")
        If i - 1 > 1 Then Console.Write("s")
        Console.Write(" of beer on the wall")
        Console.WriteLine()
        Console.WriteLine()
        i -= 1
        If i > 0 Then GoTo START
    End Sub
End Module

Python

Option Strict Off

Module Program
    Sub Main()
        Dim a=" bottles of beer",b=" on the wall"&vbLf,c="Take one down, pass it around"&vbLf,s=Function(o)o.ToString
        Console.Write(String.Join(vbLf,Enumerable.Range(1,99).Reverse.Select(Function(x)s(x)+a+b+s(x)+a+vbLf+c+s(x-1)+a+b)))
    End Sub
End Module

With sound

Compiler: Roslyn Visual Basic (language version >= 15.3)

Platform: Windows, versions other than 64-bit Vista and XP, and either with a 8254 chip or sound card installed.

Plays tones synchronized with output syllable-by-syllable. Uses word forms of numbers, but can be made to display the numbers (while still playing the appropriate number of notes as per the word form).

Uses the Windows beep function, which on modern PCs should just use the speakers. Volume depends on system volume.

Parses command-line arguments (no validation) (syntax: <name>:<value>, space-separated and optionally enclosed in quotes):

  • bpm (default 120): beats-per-minute. Beep seems to lag when called frequently, resulting in desynchronized sound and dropped notes
  • oct (default 3): (MIDI) octave to play notes in.
  • words (default true): Whether to display bottle count as words; set to false to get task-compliant output

Could use some tidying-up of magic numbers.

Options and imports statements (all parts must be in one file): 

Option Explicit On
Option Infer On
Option Strict On

Imports System.Globalization
Imports System.Runtime.InteropServices
Imports System.Threading

Helper to parse command-line arguments: 

Module ArgHelper
    ReadOnly _ArgDict As New Dictionary(Of String, String)()

    Delegate Function TryParse(Of T, TResult)(value As T, <Out> ByRef result As TResult) As Boolean

    Sub InitializeArguments(args As String())
        For Each item In args
            item = item.ToUpperInvariant()

            If item.Length > 0 AndAlso item(0) <> """"c Then
                Dim colonPos = item.IndexOf(":"c, StringComparison.Ordinal)

                If colonPos <> -1 Then
                    ' Split arguments with colons into key(part before colon) / value(part after colon) pairs.
                    _ArgDict.Add(item.Substring(0, colonPos), item.Substring(colonPos + 1, item.Length - colonPos - 1))
                End If
            End If
        Next
    End Sub

    Sub FromArgument(Of T)(
            key As String,
            <Out> ByRef var As T,
            getDefault As Func(Of T),
            tryParse As TryParse(Of String, T),
            Optional validate As Predicate(Of T) = Nothing)

        Dim value As String = Nothing
        If _ArgDict.TryGetValue(key.ToUpperInvariant(), value) Then
            If Not (tryParse(value, var) AndAlso (validate Is Nothing OrElse validate(var))) Then
                Console.WriteLine($"Invalid value for {key}: {value}")
                Environment.Exit(-1)
            End If
        Else
            var = getDefault()
        End If
    End Sub
End Module

Program: 

Module Program
    Function GetNumberSyllables(n As Integer) As IEnumerable(Of String)
        Static getTensPrefix As Func(Of Integer, IEnumerable(Of String)) =
           Iterator Function(_n As Integer) As IEnumerable(Of String)
               Select Case _n
                   Case 20 : Yield "twen"
                   Case 30 : Yield "thir"
                   Case 40 : Yield "for"
                   Case 50 : Yield "fif"
                   Case 60 : Yield "six"
                   Case 70 : Yield "se" : Yield "ven"
                   Case 80 : Yield "eigh"
                   Case 90 : Yield "nine"
                   Case Else
                       Throw New ArgumentOutOfRangeException(NameOf(_n), _n, "")
               End Select
           End Function

        Static getSmallNumber As Func(Of Integer, IEnumerable(Of String)) =
            Iterator Function(_n As Integer) As IEnumerable(Of String)
                Select Case _n
                    Case 0 : Yield "ze" : Yield "ro"
                    Case 1 : Yield "one"
                    Case 2 : Yield "two"
                    Case 3 : Yield "three"
                    Case 4 : Yield "four"
                    Case 5 : Yield "five"
                    Case 6 : Yield "six"
                    Case 7 : Yield "se" : Yield "ven"
                    Case 8 : Yield "eight"
                    Case 9 : Yield "nine"
                    Case 10 : Yield "ten"
                    Case 11 : Yield "e" : Yield "le" : Yield "ven"
                    Case 12 : Yield "twelve"
                    Case 13 : Yield "thir" : Yield "teen"
                    Case 14 : Yield "four" : Yield "teen"
                    Case 15 To 19
                        For Each s In getTensPrefix((_n - 10) * 10)
                            Yield s
                        Next
                        Yield "teen"
                    Case Else
                        Throw New ArgumentOutOfRangeException(NameOf(_n), _n, "")
                End Select
            End Function

        Select Case n
            Case 0 To 19
                Return getSmallNumber(n)
            Case 20 To 99
                Dim tens = (n \ 10) * 10
                Dim ones = n Mod 10

                Dim tensSyllables = getTensPrefix(tens).Append("ty")
                If ones = 0 Then Return tensSyllables

                Dim onesSyllables = getSmallNumber(ones)
                Return tensSyllables.
                    Append("-" & onesSyllables.First()).
                    Concat(onesSyllables.Skip(1))
            Case Else
                Throw New ArgumentOutOfRangeException(NameOf(n), n, "")
        End Select
    End Function

    Iterator Function GetLyrics(numbersToWords As Boolean) As IEnumerable(Of (text As String, midiNote As Integer, noteType As Double))
        Dim getSyllablesWordsOrNumber =
            Function(n As Integer) As IEnumerable(Of String)
                Dim syllables = GetNumberSyllables(n)
                If numbersToWords Then
                    Dim firstWordTitleCase = CultureInfo.CurrentCulture.TextInfo.ToTitleCase(syllables.First())
                    Return syllables.Skip(1).Prepend(firstWordTitleCase)
                Else
                    Return syllables.Skip(1).Select(Function(s) "").Prepend(n.ToString(CultureInfo.CurrentCulture))
                End If
            End Function

        Dim number, nextNumber As IEnumerable(Of String)
        nextNumber = getSyllablesWordsOrNumber(99)
        For i = 99 To 1 Step -1
            number = nextNumber
            nextNumber = getSyllablesWordsOrNumber(i - 1)

            For Each syl In number
                Yield (syl, 67, 4)
            Next
            Yield (" bo", 62, 4)
            Yield ("ttle" & Plural(i), 62, 4)
            Yield (" of", 62, 4)
            Yield (" beer", 67, 4)
            Yield (" on", 67, 4)
            Yield (" the", 67, 4)
            Yield (" wall", 67, 4 / 3)

            Yield (vbLf, -1, 0)
            For Each syl In number
                Yield (syl, 69, 4)
            Next
            Yield (" bo", 64, 4)
            Yield ("ttle" & Plural(i), 64, 4)
            Yield (" of", 64, 4)
            Yield (" beer", 69, 1)

            Yield (vbLf, -1, 0)
            Yield ("Take", 66, 2)
            Yield (" one", 66, 4)
            Yield (" down,", 66, 4 / 3)
            Yield (" pass", 66, 4)
            Yield (" it", 66, 4)
            Yield (" a", 66, 4)
            Yield ("round", 66, 4 / 3)

            Yield (vbLf, -1, 0)
            For Each syl In nextNumber
                Yield (syl, 62, 4)
            Next
            Yield (" bo", 64, 4)
            Yield ("ttle" & Plural(i - 1), 64, 4)
            Yield (" of", 66, 4)
            Yield (" beer", 67, 4)
            Yield (" on", 67, 4)
            Yield (" the", 67, 4)
            Yield (" wall" & vbLf, 67, 4 / 3)

            Yield (vbLf, -1, 0)
        Next
    End Function

    ' Note 69 = A440
    Function MidiNoteToFreq(midiNote As Integer) As Integer
        Const REF_NOTE = 69
        Const REF_FREQ = 440
        Return CInt(REF_FREQ * (2 ^ ((midiNote - REF_NOTE) / 12)))
    End Function

    'e.g. whole=1, half=2, quarter=4
    Function NoteToMilliseconds(noteType As Double, bpm As Integer) As Integer
        If noteType = 0 Then Return 0
        Const SECS_PER_MIN As Integer = 60
        Const MS_PER_SEC As Integer = 1000
        Const QT_NOTE_VAL As Integer = 4
        Return CInt(SECS_PER_MIN * MS_PER_SEC * QT_NOTE_VAL / (bpm * noteType))
    End Function

    Sub PlayNote(midiNote As Integer, millisecondsDuration As Integer)
        If millisecondsDuration < 1 Then Return

        If midiNote > 0 Then
            Console.Beep(MidiNoteToFreq(midiNote), millisecondsDuration)
        Else
            Thread.Sleep(millisecondsDuration)
        End If
    End Sub

    Sub Play(Optional bpm As Integer = 120, Optional octave As Integer = 3, Optional numbersToWords As Boolean = True, Optional cancellationToken As CancellationToken = Nothing)
        For Each syl In GetLyrics(numbersToWords)
            cancellationToken.ThrowIfCancellationRequested()
            Console.Write(syl.text)
            PlayNote(syl.midiNote + (12 * (octave - 3)), NoteToMilliseconds(syl.noteType, bpm))
        Next
    End Sub

    Sub Main(args As String())
        Dim bpm As Integer
        Dim octave As Integer
        Dim numbersToWords As Boolean

        InitializeArguments(args)
        FromArgument("bpm", bpm, Function() 120, AddressOf Integer.TryParse)
        FromArgument("oct", octave, Function() 3, AddressOf Integer.TryParse)
        FromArgument("words", numbersToWords, Function() True, AddressOf Boolean.TryParse)

        Using cts As New CancellationTokenSource()
            Dim t = Task.Run(Sub() Play(cancellationToken:=cts.Token,
                                        bpm:=bpm,
                                        octave:=octave,
                                        numbersToWords:=numbersToWords), cts.Token)

            Do
                Thread.Yield()
            Loop Until t.IsCompleted OrElse Console.KeyAvailable

            If Not t.IsCompleted Then
                Console.WriteLine("STOPPING")
                Try
                    cts.Cancel()
                    t.Wait()
                Catch ex As Exception
                End Try
                Console.WriteLine("STOPPED")
            End If
        End Using
    End Sub
End Module
Output:
Ninety-nine bottles of beer on the wall
Ninety-nine bottles of beer
Take one down, pass it around
Ninety-eight bottles of beer on the wall

Ninety-eight bottles of beer on the wall
Ninety-eight bottles of beer
Take one down, pass it around
Ninety-seven bottles of beer on the wall

...

One bottle of beer on the wall
One bottle of beer
Take one down, pass it around
Zero bottles of beer on the wall
Output  —  for input words:false:
99 bottles of beer on the wall
99 bottles of beer
Take one down, pass it around
98 bottles of beer on the wall

98 bottles of beer on the wall
98 bottles of beer
Take one down, pass it around
97 bottles of beer on the wall

...

1 bottle of beer on the wall
1 bottle of beer
Take one down, pass it around
0 bottles of beer on the wall

Concurrent

Module Program
    Function Plural(count As Integer) As String
        Return If(count = 1, "", "s")
    End Function

    Sub Main()
        Parallel.For(0, 99,
            Sub(i)
                i = 99 - i
                Console.WriteLine($"{i} bottle{Plural(i)} of beer on the wall")
                Console.WriteLine($"{i} bottle{Plural(i)} of beer")
                Console.WriteLine($"Take one down, pass it around")
                Console.WriteLine($"{i - 1} bottle{Plural(i - 1)} of beer on the wall")
                Console.WriteLine()
            End Sub)
    End Sub
End Module
Output:
99 bottles of beer on the wall
27 bottles of beer on the wall
51 bottles of beer on the wall
51 bottles of beer
Take one down, pass it around
50 bottles of beer on the wall
27 bottles of beer
Take one down, pass it around
26 bottles of beer on the wall
99 bottles of beer
Take one down, pass it around
98 bottles of beer on the wall


26 bottles of beer on the wall
26 bottles of beer
Take one down, pass it around
25 bottles of beer on the wall
98 bottles of beer on the wall
98 bottles of beer
Take one down, pass it around
97 bottles of beer on the wall

...

Less concurrent

Module Program
    Function Plural(count As Integer) As String
        Return If(count = 1, "", "s")
    End Function

    Sub Main()
        Dim lockobj As New Object()
        Parallel.For(0, 99,
            Sub(i)
                i = 99 - i
                SyncLock lockobj
                    Console.WriteLine($"{i} bottle{Plural(i)} of beer on the wall")
                    Console.WriteLine($"{i} bottle{Plural(i)} of beer")
                    Console.WriteLine($"Take one down, pass it around")
                    Console.WriteLine($"{i - 1} bottle{Plural(i - 1)} of beer on the wall")
                    Console.WriteLine()
                End SyncLock
            End Sub)
    End Sub
End Module
Output:
99 bottles of beer on the wall
99 bottles of beer
Take one down, pass it around
98 bottles of beer on the wall

51 bottles of beer on the wall
51 bottles of beer
Take one down, pass it around
50 bottles of beer on the wall

50 bottles of beer on the wall
50 bottles of beer
Take one down, pass it around
49 bottles of beer on the wall

49 bottles of beer on the wall
49 bottles of beer
Take one down, pass it around
48 bottles of beer on the wall

...

More concurrent

Module Program
    Function Plural(count As Integer) As String
        Return If(count = 1, "", "s")
    End Function

    Sub Main()
        Dim WriteLine =
        Sub(s As String)
            For Each c In s
                Threading.Thread.Sleep(0)
                Console.Write(c)
            Next
            Console.WriteLine()
        End Sub

        Parallel.For(0, 99,
            Sub(i)
                i = 99 - i
                WriteLine($"{i} bottle{Plural(i)} of beer on the wall")
                WriteLine($"{i} bottle{Plural(i)} of beer")
                WriteLine($"Take one down, pass it around")
                WriteLine($"{i - 1} bottle{Plural(i - 1)} of beer on the wall")
                WriteLine("")
            End Sub)
    End Sub
End Module
Output:
9235797 b5  1  bbobbootoottttltttles oftles of beer on the wall beer on the waes of beer on the wtlesallles of beer
 of beer on 3 bottles of beon the wall
er
Take one down, pass it around
2 bottles of beer on the wall

99 bottles of beer
Take one down, pass it arotl
2uhl
 ne72bd
57 o 9 btw8botalotl l
tebttlso 5leot1esft s  lb obeoofestf e t brolbe feeeo ser
b onTer
 akfTtee ahr bke oeeer
ne oT one down, pass it around
wall
n t72a he bottles odown, pass it around
4 bo26 bottles of beerkft we t a ololbnenl

s te 9eh o8eedf r
o beTwn,er on the wall

 pass it arouake one dow74 bottles of beer on the wall
 wall

bottles of beer on the wall
98 bottles of beer
Takend
n, pass it around
26 bottles of beer on 50 bottles of beer on the wall

t 175ho 40enb   we down, pass it all
aobotround
b26 bottles of beer
Tottles of beer on the tles of beer
t97 botwTtataalkllkeeel
  oe osn 5oneo0fe f   d bbdoboeowetewnntr,e,le spr   a poosoan the wall

sf beer
1s it arn the wall

ound
T bottle of beer on the wall
as it around
k97 bottles of beer on the wall
125 bottles of beer on th bottle of beer
ee one down, pass it around
T wall

4ake one down, pass it around
797 bottles of beer
T325 bottles of beer a 9bottl0 bottles of beeron thk es of beer on the wall

b on the wall

...

XBasic

Translation of: Microsoft Small Basic
Works with: Windows XBasic
PROGRAM "99bottles"
VERSION "0.0001"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  FOR n@@ = 99 TO 1 STEP -1
    SELECT CASE TRUE
      CASE n@@ = 1:
        bottleText1$ = "1 bottle"
        bottleText2$ = "No more bottles"
      CASE n@@ = 2:
        bottleText1$ = "2 bottles"
        bottleText2$ = "1 bottle"
      CASE ELSE:
        bottleText1$ = LTRIM$(STR$(n@@)) + " bottles"
        bottleText2$ = LTRIM$(STR$(n@@ - 1)) + " bottles"
    END SELECT
    PRINT bottleText1$; " of beer on the wall"
    PRINT bottleText1$; " of beer"
    PRINT "Take one down, pass it around"
    PRINT bottleText2$; " of beer on the wall"
    PRINT
  NEXT n@@
END FUNCTION
END PROGRAM

Yabasic

b$ = " bottles"
for bottles = 99 to 1 step -1
    if (bottles = 1) then b$ = " bottle" : fi
    print  bottles, b$, " of beer on the wall, "
    print bottles , b$, " of beer"
    print "Take one down, pass it around, "
    
    if bottles = 1 then
        print "no more bottles of beer on the wall.\n"
    else
        print bottles - 1, b$, " of beer on the wall."
        print
    end if
next bottles
end

ZX Spectrum Basic

10 DEF FN n$(b)="no more" AND NOT b
20 DEF FN m$(b)=(STR$ b) AND b
30 DEF FN o$(b)="s" AND (b>1)
40 DEF FN b$(b)=FN m$(b)+FN n$(b)
50 DEF FN p$(b)=FN o$(b)+("s" AND NOT b)
60 FOR i=99 TO 0 STEP -1
70 LET x$=FN b$(i)
80 IF x$(1)="n" THEN LET x$(1)="N"
90 PRINT x$;
100 PRINT " bottle";FN o$(i);" of beer on the wall, "'FN b$(i);" bottle";FN p$(i);" of beer."
110 IF NOT i THEN GO TO 160
120 PRINT "Take one down"'"and pass it around, ";
130 PRINT FN b$(i-1);" bottle";FN p$(i-1);" of beer on the wall."
140 PRINT
150 NEXT i
160 PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."

VBA

This version uses tail recursion and inline if-statements, plus a Static variable to count the number of bottles emptied. 

Public Function countbottles(n As Integer, liquid As String) As String
  countbottles = IIf(n > 1, Format$(n), IIf(n = 0, "no more", "one")) & " bottle" & IIf(n = 1, "", "s") & " of " & liquid
End Function

Public Sub drink(fullbottles As Integer, Optional liquid As String = "beer")
Static emptybottles As Integer
 
  Debug.Print countbottles(fullbottles, liquid) & " on the wall"
  Debug.Print countbottles(fullbottles, liquid)

  If fullbottles > 0 Then
    Debug.Print "take " & IIf(fullbottles > 1, "one", "it") & " down, pass it around"
    Debug.Print countbottles(fullbottles - 1, liquid) & " on the wall"
    Debug.Print
    emptybottles = emptybottles + 1
    drink fullbottles - 1, liquid
  Else
    Debug.Print "go to the store and buy some more"
    Debug.Print countbottles(emptybottles, liquid) & " on the wall"
  End If
 
End Sub

Usage: type "drink 99" in the Immediate window of the VBA editor. If you're not a beer drinker, you can specify your own favourite drink as the second argument; for example: 

drink 3, "Johnnie Walker"

3 bottles of Johnnie Walker on the wall
3 bottles of Johnnie Walker
take one down, pass it around
2 bottles of Johnnie Walker on the wall

2 bottles of Johnnie Walker on the wall
2 bottles of Johnnie Walker
take one down, pass it around
one bottle of Johnnie Walker on the wall

one bottle of Johnnie Walker on the wall
one bottle of Johnnie Walker
take it down, pass it around
no more bottles of Johnnie Walker on the wall

no more bottles of Johnnie Walker on the wall
no more bottles of Johnnie Walker
go to the store and buy some more
3 bottles of Johnnie Walker on the wall

VBScript

Simple Method

sub song( numBottles )
	dim i
	for i = numBottles to 0 step -1
		if i > 0 then
			wscript.echo pluralBottles(i) & " of beer on the wall"
			wscript.echo pluralBottles(i) & " of beer"
			if i = 1 then
				wscript.echo "take it down"
			else
				wscript.echo "take one down"
			end if 
			wscript.echo "and pass it round"
			wscript.echo pluralBottles(i-1) & " of beer on the wall"
			wscript.echo
		else
			wscript.echo "no more bottles of beer on the wall"
			wscript.echo "no more bottles of beer"
			wscript.echo "go to the store"
			wscript.echo "and buy some more"
			wscript.echo pluralBottles(numBottles) & " of beer on the wall"
			wscript.echo
		end if
	next
end sub
	
function pluralBottles( n )
	select case n
	case 1
		pluralBottles = "one bottle"
	case 0
		pluralBottles = "no more bottles"
	case else 
		pluralBottles = n & " bottles"
	end select
end function

song 3
Output:
3 bottles of beer on the wall
3 bottles of beer
take one down
and pass it round
2 bottles of beer on the wall

2 bottles of beer on the wall
2 bottles of beer
take one down
and pass it round
one bottle of beer on the wall

one bottle of beer on the wall
one bottle of beer
take it down
and pass it round
no more bottles of beer on the wall

no more bottles of beer on the wall
no more bottles of beer
go to the store
and buy some more
3 bottles of beer on the wall

Regular Expressions and Embedded Scripting

Another way of doing it, using Regular Expressions to locate executable code inside {} and replacing the code with the result of its evaluation. 

function pluralBottles( n )
	select case n
	case 1
		pluralBottles = "one bottle"
	case 0
		pluralBottles = "no more bottles"
	case else 
		pluralBottles = n & " bottles"
	end select
end function

function eef( b, r1, r2 )
	if b then
		eef = r1
	else
		eef = r2
	end if
end function

Function evalEmbedded(sInput, sP1)
	dim oRe, oMatch, oMatches
	dim sExpr, sResult
	Set oRe = New RegExp
	'Look for expressions as enclosed in braces
	oRe.Pattern = "{(.+?)}"
	sResult = sInput
	do
		Set oMatches = oRe.Execute(sResult)
		if oMatches.count = 0 then exit do
		for each oMatch in oMatches
			'~ wscript.echo oMatch.Value
			for j = 0 to omatch.submatches.count - 1
				sExpr = omatch.submatches(j)
				sResult  = Replace( sResult, "{" & sExpr & "}", eval(sExpr) ) 
			next
		next
	loop
	evalEmbedded = sResult
End Function

sub sing( numBottles )
	dim i
	for i = numBottles to 0 step -1
		if i = 0 then
			wscript.echo evalEmbedded("no more bottles of beer on the wall" & vbNewline & _
						"no more bottles of beer" & vbNewline & _
						"go to the store and buy some more" & vbNewline & _
						"{pluralBottles(sP1)} of beer on the wall" & vbNewline, numBottles)
		else
			wscript.echo evalEmbedded("{pluralBottles(sP1)} of beer on the wall" & vbNewline & _
					      "{pluralBottles(sP1)} of beer" & vbNewline & _
					      "take {eef(sP1=1,""it"",""one"")} down and pass it round" & vbNewline & _
					      "{pluralBottles(sP1-1)} of beer on the wall" & vbNewline, i)
		end if
	next
end sub

sing 3
Retrieved from "https://rosettacode.org/wiki/99_Bottles_of_Beer/Basic?oldid=352576"