reverse {
  if ($active = Status Window) { cmecho a /reverse Não use /reverse nessa janela | return }
  if ($server = $null) && ($left($active, 1) != =) { noserver }
  if ($1 = $null) { cmecho a /reverse Use &C/reverse mensagem | return }
  unset %reverse.return
  set %reverse.texto $replace($1-, $chr(32), $chr(1))
  set %reverse.posic $calc($len($1-) + 1)
  :inicio
  dec %reverse.posic
  if (%reverse.posic = 0) { goto fim }
  set %reverse.return %reverse.return $+ $mid(%reverse.texto, %reverse.posic, 1))
  goto inicio
  :fim
  unset %reverse.texto %reverse.posic
  set -u0 %reverse.return $replace(%reverse.return, $chr(1), $chr(32))
  if ($isid) return %reverse.return
  else say $autocor(%reverse.return)
}