Anonymous user
99 bottles of beer: Difference between revisions
→{{header|Smalltalk}}
Line 8,031:
(v ~~ 0) ifTrue: [ Transcript show: (sr at:4) ; cr. ].
].</lang>
=={{header|Small Basic}}==
<lang Small Basic>Small Basic
for n = 99 To 1 Step -1
If n = 1 Then
bottleText1 = " bottle"
bottleText2 = " bottles"
ElseIf n = 2 then
bottleText1 = " bottles"
bottleText2 = " bottle"
Else
bottleText1 = " bottles"
bottleText2 = " bottles"
EndIf
TextWindow.WriteLine(n+bottleText1+" of beer on the wall")
TextWindow.WriteLine(n+bottleText1+" of beer")
TextWindow.WriteLine("Take one down, pass it around")
TextWindow.WriteLine(n-1+bottleText2+" of beer on the wall")
TextWindow.WriteLine("")
EndFor
</lang>
=={{header|SNOBOL4}}==
| |||