@verb #7639:"strsub" this none this rxdo #4017
@program #7639:"strsub" this none this
{string, list1, list2} = args
length(list1) != length(list2) && raise(E_TYPE)
for x in [1..length(list1)]
  string = strsub(string, list1[x], list2[x])
endfor
return string
"Last modified by Patrick (#4017) on Thu Nov  8 19:02:51 2001 MST."
.