Revision as of 06:20, 9 March 2020 (view source) Sarossell (talk \| contribs) (→‎{{header\|QB64}}) ← Older edit		Revision as of 06:23, 9 March 2020 (view source) Sarossell (talk \| contribs) (→‎{{header\|QB64}}) Newer edit →
Line 755: ==={{header\|QB64}}=== <lang vb>'CBTJD: 2020.03.08 A$ = " bottle": B$ = " of beer": C$ = " on the wall": D$ = " Take one down, pass it around": E$ = " No more " FOR B = 99 TO 1 STEP -1 S$ = STRING$(ABS(B > 1), "s") PRINT ~~STR$(~~B); A$; S$; B$; C$: PRINT ~~STR$(~~B); A$; S$; B$: PRINT D$ SELECT CASE B CASE 2: PRINT ~~STR$(~~B - 1); A$; B$; C$ CASE 1: PRINT E$; A$; "s"; B$; C$ CASE ELSE: PRINT ~~STR$(~~B - 1); A$; S$; B$; C$ END SELECT PRINT NEXT~~</lang>~~ </lang> ==={{header\|REALbasic}}===

99 Bottles of Beer/Basic (view source)