break on



$string = "blueboy martian"



$string = split($string)



for $i = 0 to ubound($string)

    $string[$i] = ucase(left($string[$i],1)) + substr($string[$i],2)

next



$string = join($string)



? $string



get $



exit 1

Break On
 
fnProper("hello chris")
 

Function fnProper($String)
   If Not VarType($String) = 8 Exit 1 EndIf
   $String = Split($String)
   Dim $Array[Ubound($String)], $Index
   For Each $String in $String
      $Array[$Index] = Ucase(Left($String,1)) + Right($String,Len($String)-1)
      $Index = $Index + 1
   Next
   $fnProper = Join($Array)
EndFunction

$string = "blueboy martian behevo"
for $c=0 to 25
 $string = join(split($string,' '+chr(97+$c)),' '+chr(65+$c))
next
? $string
get $

fnProper("hElLo ChRiS")
 

Function fnProper($String)
   $String = Split($String)
   For $i = 0 to Ubound($String)
      $String[$i] = UCase(Left($String[$i],1)) + LCase(SubStr($String[$i],2))
   Next
   $fnProper = Join($String)
EndFunction