alias opergir  { dialog -m opergir opergir }
dialog opergir {
  title "Oper Dialog"
  size -1 -1 153 86
  option dbu
  edit "", 1, 37 10 97 10
  edit "", 2, 36 35 99 10
  text "Oper Nick", 3, 5 11 25 8
  text "Oper Sifre", 4, 6 36 25 8
  button "Gir", 5, 42 50 79 12,
  button "Hafizadan Gir", 6, 65 68 37 12, ok cancel
}
on *:dialog:opergir:*:*:{
  if ($devent == init) {
    did -a $dname 1 %opernick
    did -a $dname 2 %opersifre
  }
  if ($devent == sclick) {
    if ($did == 5) && $did(1) && $did(2) {
      set %opernick $did(1)
      set %opersifre $did(2)
      oper %opernick %opersifre
      dialog -x opergir
    }
    if ($did == 6) && %opernick && %opersifre { 
      oper %opernick %opersifre 
    }
  }
}

  

if ($devent == init) {
    did -a $dname 1 %opernick
    did -a $dname 2 %opersifre
  }