Execute HQ9+: Difference between revisions
m
→{{header|Applesoft BASIC}}
Line 94:
300 LET A = A + 1
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}}==
| |||