on *:INPUT:*: { if (/* !iswm $1) && (!inpaste) && (!$ctrlenter) { say $+($chr(3),15) $+ $+($chr(3),04,$upper($left($1,1)),$chr(3),$+($chr(2),$right($1-,-1))) haltdef } }