BCX Console Demonstration Program S61.bas

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