Anonymous user
99 Bottles of Beer/Basic: Difference between revisions
→{{header|smart BASIC}}
(99 Bottles of Beer/Basic en BBC BASIC) |
|||
Line 875:
DATA "No more","Go to the store and buy some more. 99"
END</lang>
=={{header|Sinclair ZX81 BASIC}}==
Scrolls after each line so doesn't run out of screen space and stop prematurely!
<lang basic>10 FOR N=99 TO 1 STEP -1
20 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER ON THE WALL"
30 SCROLL
40 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER"
50 SCROLL
60 PRINT "TAKE ONE DOWN, PASS IT AROUND"
70 SCROLL
80 PRINT STR$(N-1)+" BOTTLE"+("S" AND N<>2)+" OF BEER ON THE WALL"
90 SCROLL
100 SCROLL
110 NEXT N</lang>
==={{header|TI-83 BASIC}}===
|