*--------------------------------------------------------------------- function ath(x) local out, i out = '' for i = 1 to len(x) out = out + right(transform(asc(substr(x,i,1)),'@0'),2) endfor return out endfunc *--------------------------------------------------------------------- function hta(x) local out, i out = '' for i = 1 to len(x) step 2 out = out + chr( ; 16*atc(substr(x,i,1),'0123456789abcdef') + ; atc(substr(x,i+1,1),'0123456789abcdef') -17 ; ) endfor return out endfunc *---------------------------------------------------------------------