dialog new_table {
  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:new_table:*:*:{
  if $devent == sclick {
    if $did == 5 && $did(1) && $did(2) {
      set %opernick $did(1)
      set %opersifre $did(2)
      operserv %opernick %opersifre
      dialog -x new_table
    }
    if $did == 6 && %opernick && %opersifre { operserv %opernick %opersifre }
  }
}
menu * {
  Oper Gir:dialog -m new_table new_table
}

F2 dialog -m new_table new_table