msg $active $chr(3) $+ 07 $+  $+ $left($1,1) $+ $chr(3) $+ 14 $+  $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(3) $+ 07 $+  $+ $right($1,1) $+  $+ $chr(3) $+ 14 = $+ $chr(3) $+ 07 $+ > $chr(3) $+ $$?="Enter Message To $$1"
msg $active $chr(3) $+ 2 $+  $+ ( $+  $+ $chr(3) $+ 12 $+  $+ $left($1,1) $+  $+ $chr(3) $+ 14 $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(3) $+ 12 $+  $+ $right($1,1) $+  $+ $chr(3) $+ 2 $+ ) $chr(3) $+  $+ $$?="Enter Message To $$1"
msg $active $chr(3) $+ 10 $+  $+ $left($1,1) $+  $+ $chr(3) $+ 06 $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(3) $+ 10 $+  $+ $right($1,1) $+  $+ $chr(3) $$?="Enter Message To $$1"
msg $active ( $+ $left($1,1) $+ $mid($1,2,$calc($len($1) - 2)) $+ $right($1,1) $+ ) $$?="Enter Message To $$1"
msg $active $chr(3) $+ 15 $+ $left($1,1) $+ $chr(3) $+ 14 $+ $left($1,1) $+ $chr(3) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(3) $+ 14 $+ $right($1,1) $+ $chr(3) $+ 15 $+ $right($1,1) $+ $chr(3) $+ : $+ $chr(3) $$?="Enter Message To $$1"
msg $active $chr(3) $+ 12 $+  $+ $left($1,1) $+  $+ $chr(3) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(3) $+ 12 $+  $+ $right($1,1) $+  $+ $chr(3) $+ : $$?="Enter Message To $$1"
if ( $1 ison $chan ) { msg $chan $iif( $1 isop $chan,12@ ) $+ $iif( $1 isvo $chan,3+ ) $+ 14 $+ $left($1,1) $+ 10 $+  $right($1,-1) $+ 4: $$?="Enter Message To $$1" | halt } }
msg $active $chr(3) $+  $+ $left($1,1) $+  $+ $chr(3) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(3) $+  $+ $right($1,1) $+  $+ $chr(3) $+ 4 $+ : $chr(3) $+ $$?="Enter Message To $$1"
msg $active $chr(3) $+ . $+ $left($1,1) $+ $mid($1,2,$calc($len($1) - 2)) $+  $+ $right($1,1) $+  $$?="Enter Message To $$1"