99 Bottles of Beer/Basic: Difference between revisions
→{{header|QB64}}
Line 754:
==={{header|QB64}}===
<lang QB64>READ b, s$(0), s$(1), a$, b$, c$, d$, e$, f$▼
▲READ b, s$(0), s$(1), a$, b$, c$, d$, e$, f$
g$ = CHR$(10)
WHILE b > 0
Line 774 ⟶ 773:
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</lang>
==={{header|REALbasic}}===
| |||