<pre>function trim T  repeat while T is not empty    if first char of T is space then delete first char of T else exit repeat  end repeat  repeat while T is not empty    if last char of T is space then delete last char of T else exit repeat  end repeat  return Tend trimfunction trim T,aList,zList  if aList is empty then put " .-,;:@#$%?&*" into aList  if zList is empty then put " .-,;:@#$%?&*" into zList  repeat while T is not empty    if first char of T is in aList then delete first char of T else exit repeat  end repeat  repeat while T is not empty    if last char of T is in zList then delete last char of T else exit repeat  end repeat  return Tend trimfunction trim T,F  if F is empty then put " .-,;:@#$%?&*" & tab into F  repeat while T is not empty    if first char of T is in F then delete char 1 of T else exit repeat  end repeat  repeat while T is not empty    if last char of T is in F then delete last char of T else exit repeat  end repeat  return Tend trim</pre>