@verb #340:"_trans_to" this none this rxdo #7214
@program #340:"_trans_to" this none this
":trans_to(string)"
"Sanitize the filename"
out = ""
string = strsub(args[1], "^", "^^")
for x in [1..length(string)]
  if (p = (c = string[x]) in this.trans_from)
    out = out + "^" + this.trans_to[p]
  else
    out = out + c
  endif
endfor
return out
"Last modified by manta (#7165) on Thu May  4 20:16:31 2000 MDT."
.