60 FOR I%=1 TO LEN(A$):POKE &A315+I%,ASC(MID$(A$,I%,1)):NEXT
60 FOR I%=1 TO LEN(A$):POKE &A31A+I%,ASC(MID$(A$,I%,1)):NEXT