Execute HQ9+: Difference between revisions
Content added Content deleted
Childishbeat (talk | contribs) m (→{{header|NS-HUBASIC}}: The grammar of 99 Bottles of Beer has been improved.) |
Childishbeat (talk | contribs) m (→{{header|NS-HUBASIC}}: The code is shorter while still being easily readable.) |
||
Line 1,556: | Line 1,556: | ||
=={{header|NS-HUBASIC}}== |
=={{header|NS-HUBASIC}}== |
||
<lang NS-HUBASIC>10 INPUT "INPUT HQ9+ CODE: ",I$ |
<lang NS-HUBASIC>10 INPUT "INPUT HQ9+ CODE: ",I$ |
||
20 B$=" |
20 B$="S" |
||
30 W$=" ON THE WALL" |
30 W$=" ON THE WALL" |
||
40 FOR I=1 TO LEN(I$) |
40 FOR I=1 TO LEN(I$) |
||
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 IF B=1 THEN B$=" |
110 IF B=1 THEN B$="" |
||
120 PRINT B B$ W$ |
120 PRINT B " BOTTLE"B$" OF BEER" W$ |
||
130 PRINT B B$ |
130 PRINT B " BOTTLE"B$" OF BEER" |
||
140 PRINT "TAKE ONE DOWN," |
140 PRINT "TAKE ONE DOWN," |
||
150 PRINT "PASS IT AROUND" |
150 PRINT "PASS IT AROUND" |
||
160 IF B=2 THEN B$=" |
160 IF B=2 THEN B$="" |
||
170 IF B=1 THEN B$=" |
170 IF B=1 THEN B$="S" |
||
180 PRINT B-1 B$ W$ |
180 PRINT B-1 " BOTTLE"B$" OF BEER" W$ |
||
190 NEXT |
190 NEXT |
||
200 NEXT</lang> |
200 NEXT</lang> |