STRIPTRAIL
STRING, ASCII|CHARACTER
This function will remove all the trailing characters based on a supplied ASCII character value or a character.
Example
PRINT STRIPTRAIL("AAABBBAAA", 65)
LINE BREAK
PRINT STRIPTRAIL("AAABBBAAA", "A")
LINE BREAK
DEF string$=STRIPTRAIL("AAABBBAAA", "A")
PRINT string$
Output
AAABBB
AAABBB
AAABBB
AAABBB
AAABBB