99 bottles of beer: Difference between revisions
Content deleted Content added
m →GUI: Added comments |
→{{header|BASIC}}: Added version using "PLAY" |
||
Line 29:
=={{header|BASIC}}==
{{works with|QuickBasic|4.5}}
===Sound===
This version plays the tune 100 times while printing out the number of beers on the wall.
<qbasic>PLAY "<"
FOR i = 100 TO 1 STEP -1
PRINT i
PLAY "e-8e-8e-8<b8b8b8>e-8e-8e-8e-4"
PLAY "f8f8f8c8c8c8f4"
PLAY "d4d8d8 N0 d8d8d8d4"
PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"
NEXT i</qbasic>
===Text===
<qbasic>FOR x = 99 TO 1 STEP -1
PRINT x; "bottles of beer on the wall"
| |||