FUNCTION REMOVE_TRAILING_CHAR( Field, CharToRemove )
*
begin condition
pre:
post:
end condition
$insert logical

NewField = ''
FCnt = len(Field)
Done = false$
for i = FCnt to 1 step -1
  ThisChar = Field[i,1]
  if ThisChar = CharToRemove then
     NewField = Field[1,i-1]  
  end
 until ThisChar <> CharToRemove
next i
return NewField