99 Bottles of Beer/Basic: Difference between revisions

Content added Content deleted

Inline

@@ Line 755: / 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"
+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$
+    PRINT B; A$; S$; B$; C$: PRINT B; A$; S$; B$: PRINT D$
     SELECT CASE B
-        CASE 2: PRINT STR$(B - 1); A$; B$; C$
+        CASE 2: PRINT B - 1; A$; B$; C$
         CASE 1: PRINT E$; A$; "s"; B$; C$
-        CASE ELSE: PRINT STR$(B - 1); A$; S$; B$; C$
+        CASE ELSE: PRINT B - 1; A$; S$; B$; C$
     END SELECT
     PRINT
-NEXT</lang>
+NEXT
+</lang>
 ==={{header|REALbasic}}===