Execute HQ9+: Difference between revisions
m
→{{header|NS-HUBASIC}}: NS-HUBASIC example added
m (→{{header|Golo}}: fixed some indentation issues) |
Childishbeat (talk | contribs) m (→{{header|NS-HUBASIC}}: NS-HUBASIC example added) |
||
Line 1,274:
echo("Unknown command: ", token)
</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}}==
| |||