dialog findip { 
  title "find ip program #oper"
  size -1 -1 210 100 
  option dbu
  box "" 1, 2 2 205 95
  edit "", 2, 5 10 50 10, autohs
  list 4, 5 30 180 50, size sort hsbar vsbar 
  button "add", 5, 55 10 30 10
  button "enviar", 6, 100 10 30 10
  button "del", 7, 140 10 30 10
  button "lista", 8, 140 80 30 10
}
alias findip { dialog -m findip findip }
on *:dialog:findip:sclick:*:{ 
  if (( $did == 5 ) && ( $did(2) != $null )) { /write iplist.txt $did(2) | /did -ar findip 4 ip adicionado | /did -r findip 2 }
  if (( $did == 5 ) && ( $did(2) == $null )) { /did -ar findip 4 digite um ip }
  if (( $did == 6 ) && ( $did(4).seltext )) { //msg $active $did(4).seltext }
  if ( $did == 8 ) { /did -r findip 4 | /loadbuf -o findip 4 iplist.txt }
;a linha e essa  if ( $did == 7 ) { write -dl $+ $calc($did(4).sel -1) iplist.txt | /did -r findip 4 | /loadbuf -o findip 4 iplist.txt } 
}
on *:dialog:findip:edit:*:{ 
  if ( $did(2) != $null ) {
    if ( $read(iplist.txt, w, * $+ $did(2) $+ *) ) { /filter -co iplist.txt findip 4 * $+ $did(2) $+ * }
    else { did -ar findip 4 Registo nao encontrado! }
  } 
  if ( $did(2) == $null ) { /did -r findip 4 }
}
menu channel { 
  .findip:{
    /findip
  }
}