Execute HQ9+: Difference between revisions
Content added Content deleted
| Line 94: | Line 94: | ||
300 LET A = A + 1 |
300 LET A = A + 1 |
||
310 RETURN</lang> |
310 RETURN</lang> |
||
0INPUT"HQ9+: ";I$:N$=CHR$(13):DIMS$(127):S$(ASC("H"))="HELLO, WORLD!"+N$:S$(ASC("Q"))=I$+N$:B$=" BOTTLES OF BEER":W$=" ON THE WALL"+N$:FORI=1TOLEN(I$):C$=MID$(S$(ASC("Q")),I,1):PRINTS$(ASC(C$));:A=A+(C$="+"):IFC$<>"9"THENNEXTI:END |
|||
1FORB=99TO1STEP-1:PRINTB;B$W$B;B$N$"TAKE ONE DOWN, PASS IT AROUND"N$B-1;B$W$:NEXTB,I |
|||
=={{header|x86 Assembly}}== |
=={{header|x86 Assembly}}== |
||