SUBROUTINE TOLCSent(Result, String)
     Result = ""
     Len = LEN(String)
     Space = 1
     FOR i = 1 TO Len
        Char = String[i,1]
        BEGIN CASE
           CASE Char NE " "
              IF Space THEN
                 Char = OCONV(Char,"MCU")
                 Space = 0
              END ELSE
                 Char = OCONV(Char,"MCL")
              END
           CASE Char EQ " "
              Space = 1
        END CASE
        Result := Char
     NEXT i
     RETURN
  END