99 Bottles of Beer/Basic: Difference between revisions

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

__toc__

=={{header|BASIC}}==

==={{header|QBasic}}===

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

FOR bottles = 4 TO 1 STEP -1

PRINT STR$(bottles) + " bottle" + suffix$ + " of beer on the wall, ";

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."

 

==={{header|QuickBASIC}}===

====Sound====

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

FOR x = 99 TO 0 STEP -1

PRINT x; "bottles of beer on the wall"

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

 

====Text====

PRINT x; "bottles of beer on the wall"

PRINT x; "bottles of beer"

PRINT x-1; "bottles of beer on the wall"

PRINT

 

==={{header|Applesoft BASIC}}===

 

===BaCon===

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

DECLARE counter$

DECLARE bottle$

PRINT counter$, bottle$, ofbeer$, onthewall$ FORMAT "%s %s %s %s.\n"

IF bottles > 0 THEN PRINT

 

==={{header|BASIC256}}===

n4 = 1000 * 60 / 80 / 4

n8 = n4 / 2

print

next x

 

 

==={{header|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)

PRINT"99 bottles of beer on the wall."

VDU15:REM deshabilita el modo de paginación

 

 

==={{header|BBC BASIC}}===

 

N_Bottles = 99

END

 

==={{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.

 

10 dim bo$(2):bo$(0)="bottle":bo$(1)="bottles"

15 print chr$(147);chr$(14);"99 Bottles of Beer Song"

135 rem move to next verse

140 print:next c

 

==={{header|Creative Basic}}===

====window version====

DEF Close:CHAR

DEF ScreenSizeX,ScreenSizeY:INT

 

RETURN

====console only version====

Rather quickly written and dirty.

 

DECLARE SingWallLn()

 

RETURN

 

==={{header|FBSL}}===

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

 

Class Wall

while BeerSong.Sing() <> 99

end while

 

==={{header|FreeBASIC}}===

==== Normal version ====

 

Dim As Integer bottles = 99

 

Print "Press any key to sleep it off"

 

==== Code golf ====

t="Take one down and pass it around, ",n="o more",p="."

For a As Byte=99 To 1 Step-1

?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

 

==={{header|FUZE BASIC}}===

DIM s$(1)

READ b,s$(0),s$(1),a$,b$,c$,d$,e$,f$

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"

 

==={{header|Yabasic}}===

b$ = " bottles"

for bottles = 99 to 1 step -1

next bottles

end

 

 

grammatically correct.

 

20 PRINT BOTTLES " bottles of beer on the wall"

30 PRINT BOTTLES " bottles of beer"

50 PRINT BOTTLES-1 " bottles of beer on the wall"

60 NEXT BOTTLES

 

==={{header|Integer BASIC}}===

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.

 

E000R (APPLE I)

10 REM -------------------------

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

 

==={{header|Liberty BASIC}}===

song$ = song$ + str$(bottles) + " bottle"

If (bottles > 1) Then song$ = song$ + "s"

+ chr$(13) + chr$(10) + "Go to the store and buy some more, 99 bottles of beer on the wall."

 

 

==={{header|Microsoft Small Basic}}===

 

For n = 99 To 1 Step -1

If n = 1 Then

TextWindow.WriteLine("")

EndFor

 

==={{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).

10 REM 99 Bottles of Beer

20 LET A$ = " bottle"

290 PRINT "99 bottles of beer on the wall."

300 END

 

==={{header|MSX Basic}}===

 

10 FOR X = 99 TO 1 STEP -1

20 PRINT X; "bottles of beer on the wall"

60 PRINT

70 NEXT X

 

==={{header|OxygenBasic}}===

int x=99

string cr,tab,pr,bottles,bottlem,remain

'

putfile "t.txt",pr

 

==={{header|PowerBASIC}}===

#DIM ALL

 

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

 

 

==={{header|PureBasic}}===

====Normal version====

Define Bottles=99

While Bottles

PrintN(#CRLF$+#CRLF$+"Press ENTER to exit"):Input()

CloseConsole()

 

====An object-oriented solution====

 

Structure WallClass

CloseConsole()

EndIf

 

==={{header|QB64}}===

''CBTJD'': 2020/03/08

* Manages grammatical support for "1 bottle of beer" and "No more bottles of beer".

FOR B = 99 TO 1 STEP -1

S$ = STRING$(ABS(B > 1), "s")

END SELECT

PRINT

 

==={{header|REALbasic}}===

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

While bottles > 0

Print(str(bottles) + " bottles of beer on the wall")

bottles = bottles - 1

Print(str(bottles) + " bottles of beer on the wall")

 

==={{header|Run BASIC}}===

for bottles = 99 To 1 Step -1

If (bottles = 1) then b$ = " bottle"

print bottles - 1;b$;" of beer on the wall.";chr$(10)

end if

 

==={{header|smart BASIC}}===

g$ = CHR$(10)

WHILE b > 0

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"

 

==={{header|Sinclair ZX81 BASIC}}===

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

20 SCROLL

30 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER ON THE WALL"

90 PRINT STR$(N-1)+" BOTTLE"+("S" AND N<>2)+" OF BEER ON THE WALL"

100 SCROLL

 

==={{header|TI-83 BASIC}}===

:For(I,99,1,-1)

:Disp I

:Disp "ON THE WALL."

:End

 

 

==={{header|TI-89 BASIC}}===

Local i,plural,clockWas,t,k,wait

"s" → plural

ClockOff

ENdIf

 

==={{header|Tiny BASIC}}===

105 GOSUB 120

110 IF N>0 THEN GOTO 105

185 IF N>1 THEN PRINT N," bottles of beer"

190 RETURN

 

==={{header|True BASIC}}===

! TrueBASIC v6.007

 

GET KEY done

END

 

==={{header|Visual Basic}}===

Const bottlesofbeer As String = " bottles of beer"

Const onthewall As String = " on the wall"

Debug.Print "Go to the store, buy some more"

Debug.Print "99" & bottlesofbeer & onthewall

 

==={{header|Visual Basic .NET}}===

 

====Classic====

Sub Main()

Dim Bottles As Integer

Next

End Sub

 

====String interpolation====

Function Plural(count As Integer) As String

Return If(count = 1, "", "s")

Next

End Sub

 

====Mental mutilation beyond hope of regeneration====

Option Strict Off

 

If i > 0 Then GoTo START

End Sub

 

====Python====

 

Module Program

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

 

====With sound====

 

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

Option Infer On

Option Strict On

Imports System.Globalization

Imports System.Runtime.InteropServices

 

Helper to parse command-line arguments:

Module ArgHelper

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

End If

End Sub

 

Program:

Function GetNumberSyllables(n As Integer) As IEnumerable(Of String)

Static getTensPrefix As Func(Of Integer, IEnumerable(Of String)) =

End Sub

End Module

 

{{out}}

 

====Concurrent====

Function Plural(count As Integer) As String

Return If(count = 1, "", "s")

End Sub)

End Sub

 

{{out}}

 

====Less concurrent====

Function Plural(count As Integer) As String

Return If(count = 1, "", "s")

End Sub)

End Sub

 

{{out}}

 

====<s>More</s>D<s> </s>R<s>con</s>U<s>current</s>NK====

Function Plural(count As Integer) As String

Return If(count = 1, "", "s")

End Sub)

End Sub

 

{{out}}

{{trans|Microsoft Small Basic}}

{{works with|Windows XBasic}}

PROGRAM "99bottles"

VERSION "0.0001"

END FUNCTION

END PROGRAM

 

==={{header|ZX Spectrum Basic}}===

20 DEF FN m$(b)=(STR$ b) AND b

30 DEF FN o$(b)="s" AND (b>1)

150 NEXT i

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

=={{header|VBA}}==

This version uses tail recursion and inline if-statements,

plus a Static variable to count the number of bottles emptied.

 

countbottles = IIf(n > 1, Format$(n), IIf(n = 0, "no more", "one")) & " bottle" & IIf(n = 1, "", "s") & " of " & liquid

End Function

End If

 

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:

 

</pre>

=={{header|VBScript}}==

===Simple Method===

dim i

for i = numBottles to 0 step -1

end function

 

{{Out}}

<pre>3 bottles of beer on the wall

and replacing the code with the result of its evaluation.

 

select case n

case 1

end sub