Rosetta Code

99 Bottles of Beer/Basic: Difference between revisions

Page Discussion

99 Bottles of Beer/Basic (view source)

Revision as of 06:10, 9 March 2020

98 bytes removed ,  4 years ago
→‎{{header|QB64}}
Line 754:
 
==={{header|QB64}}===
DATA<lang QB64>A$ = 99,"","s"," bottle",: B$ = " of beer",: C$ = " on the wall.": D$ = "," Take one down, pass it around.": E$ = " No more"▼
<lang QB64>READ b, s$(0), s$(1), a$, b$, c$, d$, e$, f$
FOR B = 99 TO 1 STEP -1
g$ = CHR$(10)
S$ = STRING$(ABS(B > 1), "s")
WHILE b > 0
PRINT STR$(B); A$; S$; B$; C$: PRINT STR$(B); A$; S$; B$: PRINT D$
IF b > 1 THEN
SELECT CASE x = 1B
CASE 2: PRINT STR$(B - 1); A$; B$; C$
ELSE
xCASE =1: 0PRINT E$; A$; "s"; B$; C$
CASE ELSE: PRINT STR$(B - 1); A$; S$; B$; C$
END IF
IFEND b - 1 <> 1 THENSELECT
y = 1PRINT
NEXT
ELSE
'CBTJD 2020
y = 0
END</lang>▼
END IF
PRINT b; a$; s$(x); b$; c$; b; a$; s$(x); b$; "."; g$; d$; b - 1; a$; s$(y); b$; c$; g$
b = b - 1
WEND
PRINT e$; a$; "s"; b$; c$; e$; a$; "s"; b$; "."; g$; f$; a$; "s"; b$; c$
▲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}}===
Sarossell
306

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/251750"