Code:
#uppercase off 
on *:INPUT:*: {
  if (/* !iswm $1) || ($ctrlenter) {
    msg $target $iif($left($1,1) islower,$+($upper($v1),$right($1-,-1)),$1-)
    halt
  }
}
#uppercase end


/enable #uppercase
/disable #uppercase

/help ON input
/help islower