?  Proper$("tRaNsLaToR")

FUNCTION Proper$ (A$)
  LOCAL T$
  T$ = UCASE$(LEFT$(A$, 1)) & LCASE$(MID(A$, 2, 256))
  FUNCTION = T$
END FUNCTION

Result:

Translator