Revise paste CS mode

alias modeclist {
  did -r srvrdialog 1
  window -h @refserv
  if ($isfile(scripts\tmp\readserv.txt)) {
    .fopen serv scripts\tmp\readserv.txt
    while (!$feof) && ($fread(serv) != $null) {
      var %1 $v1,%g $wd(%1,1,32),%2 n/a,%3 $wd(%1,2,32),%4 $remove($wd(%1,3-7,32),WEST,WET)
      if (Mode locks for* iswmcs %1) || (Bloqueios de modo para* iswmcs %1) || (Channel*has no mode locks. iswmcs %1) || (O canal*não tem mode locks. iswmcs %1) { dialog -t srvrdialog $remove(%1,$chr(46)) }
      else {
        if (%g === +f) || (%g === +k) || (%g === +L) || (%g === +l) || (%g === +F) || (%g === +H) {
          %2 = %3
          %3 = $wd(%1,3,32)
          %4 = $wd(%1,4-8,32)
        }
        if (%g === -f) || (%g === -k) || (%g === -L) || (%g === -l) || (%g === -F) || (%g === -H) {
          %2 = n/a
          %3 = $wd(%1,2,32)
          %4 = $wd(%1,3-7,32)
        }
        if ($did(srvrdialog,7).text) {
          if (* $+ $did(srvrdialog,7).text $+ * iswm %1) { did -a srvrdialog 1 + 0 0 0 $wd(%1,1,32) 	+ 0 0 0 %2 	+ 0 0 0 %3 	+ 0 0 0 %4 }
        }
        else { did -a srvrdialog 1 + 0 0 0 $wd(%1,1,32) 	+ 0 0 0 %2 	+ 0 0 0 %3 	+ 0 0 0 %4 }
      }
    }
    .fclose serv
  }
  close -@ @refserv
}