Rosetta Code

99 Bottles of Beer/Basic: Difference between revisions

Page Discussion

99 Bottles of Beer/Basic (view source)

Revision as of 21:19, 3 September 2021

No change in size ,  2 years ago
→‎{{header|Sinclair ZX81 BASIC}}
Line 879:
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
3020 SCROLL▼
2030 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER ON THE WALL"
▲30 SCROLL
5040 SCROLL▼
4050 PRINT STR$(N)+" BOTTLE"+("S" AND N<>1)+" OF BEER"
▲50 SCROLL
7060 SCROLL▼
6070 PRINT "TAKE ONE DOWN, PASS IT AROUND"
▲70 SCROLL
9080 SCROLL▼
8090 PRINT STR$(N-1)+" BOTTLE"+("S" AND N<>2)+" OF BEER ON THE WALL"
▲90 SCROLL
100 SCROLL
110 NEXT N</lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/251774"