Main sections
RTRIM$()
res$ = RTRIM$(text$, trim$=" \t\r\n\v\f")
Cuts all characters within trim$ off from the back end of text$.
LOCAL tr$[]
DIMDATA tr$[], " \t 123 45\f ", " 2 2 2", "2 2 2 ", " ", ""
FOREACH t$ IN tr$[]
STDOUT "L:>"+LTRIM$(t$)+"< R:>"+RTRIM$(t$)+"< T:>"+TRIM$(t$)+"<\n"
NEXT
KEYWAIT
END