Address of a variable: Difference between revisions
Content added Content deleted
(Applesoft BASIC) |
|||
Line 231: | Line 231: | ||
7 END |
7 END |
||
8 FOR A = PEEK(105) + PEEK(106) * 256 TO PEEK(107) + PEEK(108) * 256 STEP 7 : IF PEEK(A) = ASC(LEFT$(N$,1)) + 128 AND PEEK(A + 1) = ASC(MID$(N$ + CHR$(0), 2, 1)) THEN A = A + 2 : RETURN |
8 FOR A = PEEK(105) + PEEK(106) * 256 TO PEEK(107) + PEEK(108) * 256 STEP 7 : IF PEEK(A) = ASC(LEFT$(N$,1)) + 128 AND PEEK(A + 1) = ASC(MID$(N$ + CHR$(0), 2, 1)) THEN A = A + 2 : RETURN |
||
9 NEXT A : PRINT "FN |
9 NEXT A : PRINT "FN " N$ " NOT FOUND" |
||
</lang> |
</lang> |
||