Execute HQ9+: Difference between revisions

Content added Content deleted
m (→‎{{header|NS-HUBASIC}}: Line 170 has been modified to fit in with the optimizations from before.)
m (→‎{{header|NS-HUBASIC}}: Further optimizations to the code have been made.)
Line 1,334: Line 1,334:
60 FOR I=1 TO LEN(I$)
60 FOR I=1 TO LEN(I$)
70 C$=MID$(J$,I,1)
70 C$=MID$(J$,I,1)
80 IF C$="H" THEN PRINT "HELLO, WORLD!"
80 IF C$="H"THEN PRINT "HELLO, WORLD!"
90 IF C$="Q" THEN PRINT I$
90 IF C$="Q"THEN PRINT I$
100 A=A+(C$="+")
100 A=A+(C$="+")
110 IF C$<>"9" GOTO 190
110 IF C$<>"9"GOTO 190
120 FOR B=99 TO 1 STEP -1
120 FOR B=99 TO 1 STEP -1
130 PRINT B B$ W$
130 PRINT B B$ W$