function str2int(str)
//variable str
variable ch
variable d
variable n
variable ii
n=strlen(str)
d=0
for ii=0 to n-1 step 1
ch=strsub(str,ii,ii+1)
d=d*10+conv_str_to_ints(ch)-conv_str_to_ints("0")
next
return d
endf
//////////
////////////////
function int2str(n)
variable num,d, ii=48
variable str=""
num=n
do
d=mod(num,10)
num=floor(num/10)
str=conv_ints_to_str(d+48)+str
until num==0
return str
endf