TXT2MEM

Purpose : Sets values in memory(x) from a text variable.

Format: TXT2MEM   text variable    memory location     character count

Notes:  Use this statement to set  character count  memory values (in ASCII form)  starting from the location specified by memory location  from a text variable.

Examples:

# MEM2TXT Example

clear
$alphabet = "abcdefghijklmnopqrstuvwxyz0123456789"

startpos = 0

num_chars = 36

txt2mem $alphabet startpos num_chars

a = 0
*main
 ch = memory(a)
 print ch
 a = a + 1
if a < num_chars
 goto main
endif

ch = 48
a = 0
loop begin 80
 memory(a) = ch
 ch = ch + 1
 a = a + 1
loop end

# TXT2MEM Example

mem2txt $dest 0 80
print $dest

exit

See Also:  TXT2NUM   MEM2TXT