FL_StripLetter

Revision 1
Revised on 19/03/95 17:57

Description

Try to remove a letter from a string, until the string is shorter than 30 characters, or all the instances of the letter have gone.

Used internally by FL_LegalName.

Code

function FL_StripLetter name,letter
  repeat while ((length(name) > 30) and (letter is in name))
    delete char offset(letter,name) of name
  end repeat
  return name
end FL_StripLetter