Execute HQ9+: Difference between revisions
Content added Content deleted
m (→{{header|Golo}}: fixed some indentation issues) |
Childishbeat (talk | contribs) m (→{{header|NS-HUBASIC}}: NS-HUBASIC example added) |
||
Line 1,274: | Line 1,274: | ||
echo("Unknown command: ", token) |
echo("Unknown command: ", token) |
||
</lang> |
</lang> |
||
=={{header|NS-HUBASIC}}== |
|||
<lang NS-HUBASIC>10 INPUT "INPUT HQ9+ CODE: ",I$ |
|||
20 J$=I$+CHR$(13) |
|||
30 B$="BOTTLES OF BEER" |
|||
40 W$=" ON THE WALL" |
|||
50 W$=W$+CHR$(13) |
|||
60 FOR I=1 TO LEN(I$) |
|||
70 C$=MID$(J$,I,1) |
|||
80 IF C$="H" THEN PRINT "HELLO, WORLD!" |
|||
90 IF C$="Q" THEN PRINT I$ |
|||
100 A=A+(C$="+") |
|||
110 IF C$<>"9" GOTO 190 |
|||
120 FOR B=99 TO 1 STEP -1 |
|||
130 PRINT B" "B$ W$ |
|||
140 PRINT B" "B$ |
|||
150 PRINT "TAKE ONE DOWN," |
|||
160 PRINT "PASS IT AROUND" |
|||
170 PRINT B-1" "B$ W$ |
|||
180 NEXT |
|||
190 NEXT</lang> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |