Execute HQ9+: Difference between revisions
Content added Content deleted
No edit summary |
Childishbeat (talk | contribs) m (→{{header|NS-HUBASIC}}: The grammar of 99 Bottles of Beer has been improved.) |
||
Line 1,565: | Line 1,565: | ||
90 IF C$<>"9" GOTO 170 |
90 IF C$<>"9" GOTO 170 |
||
100 FOR B=99 TO 1 STEP -1 |
100 FOR B=99 TO 1 STEP -1 |
||
110 |
110 IF B=1 THEN B$=" BOTTLE OF BEER" |
||
120 PRINT B B$ |
120 PRINT B B$ W$ |
||
130 PRINT |
130 PRINT B B$ |
||
140 PRINT " |
140 PRINT "TAKE ONE DOWN," |
||
150 PRINT |
150 PRINT "PASS IT AROUND" |
||
160 IF B=2 THEN B$=" BOTTLE OF BEER" |
|||
⚫ | |||
170 IF B=1 THEN B$=" BOTTLES OF BEER" |
|||
⚫ | |||
180 PRINT B-1 B$ W$ |
|||
⚫ | |||
⚫ | |||
=={{header|OCaml}}== |
=={{header|OCaml}}== |