99 Bottles of Beer/Basic: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 169: | Line 169: | ||
180 if a goto 10 |
180 if a goto 10 |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
==={{header|Commander X16 BASIC}}=== |
|||
<syntaxhighlight lang="BASIC"> |
|||
10 PSGINIT |
|||
20 PSGPLAY 0, "T220L4" |
|||
30 FOR Z=99 TO 1 STEP -1 |
|||
40 PRINT Z; "BOTTLE"; |
|||
50 IF Z <> 1 THEN PRINT "S"; |
|||
60 PRINT " "; |
|||
70 PRINT "OF BEER ON THE WALL!" |
|||
80 PSGPLAY 0,"GGGDDDGGGG2." |
|||
90 PRINT Z; "BOTTLE"; |
|||
100 IF Z <> 1 THEN PRINT "S"; |
|||
110 PRINT " "; |
|||
120 PRINT "OF BEER!" |
|||
130 PSGPLAY 0,"AAAEEES0A2.A2.S1" |
|||
140 PRINT " TAKE ONE DOWN" |
|||
150 PSGPLAY 0,"F+2F+F+2." |
|||
160 PRINT " PASS IT AROUND" |
|||
170 PSGPLAY 0,"F+F+F+F+2." |
|||
180 PRINT Z-1; "BOTTLE"; |
|||
190 IF Z <> 2 THEN PRINT "S"; |
|||
200 PRINT " "; |
|||
210 PRINT "OF BEER ON THE WALL!" |
|||
220 PSGPLAY 0,"DDDDEF+GGGG2." |
|||
230 PRINT |
|||
240 NEXT Z |
|||
</syntaxhighlight> |
|||
==={{header|Chipmunk Basic}}=== |
==={{header|Chipmunk Basic}}=== |