99 Bottles of Beer/Basic: Difference between revisions
→{{header|FreeBASIC}}
Line 433:
</lang>
==={{header|FreeBASIC}}===
<lang freebasic>' FB 1.05.0 Win64
Dim As Integer bottles = 19
Line 448 ⟶ 447:
b = " bottle "
ElseIf bottles = 0 Then
b =
End If
Print "There'll be"; bottles; b; "of beer hanging on the wall"
Line 455 ⟶ 454:
Print "Press any key to sleep it off"
Sleep</lang>
==={{header|FUZE BASIC}}===
| |||