1 OPEN "output.txt" FOR OUTPUT AS 1
4 DEF FNA(X) = PEEK(X)+256*PEEK(X+1)
5 PRINT#1, FRE(0)
10 A$="12345"
15 PRINT#1, A$, FRE(0), VARPTR(A$), FNA(VARPTR(A$))
20 LSET A$="abcde"
25 PRINT#1, A$, FRE(0), VARPTR(A$), FNA(VARPTR(A$))
30 LSET A$="12346"
35 PRINT#1, A$, FRE(0), VARPTR(A$), FNA(VARPTR(A$))
40 CLOSE
