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

Result:

 Translator