alias Away {
  dialog -m Away Away
}
menu * {
  Away/Back:/dialog -m Away Away
}
Dialog Away {
  Title "Away/Back dialog"
  size -1 -1 113 80
  option dbu
  Text "Made by Bryan Slop 2", 1, 25 61 63 75
  box "Test Dialogje", 2, 1 1 111 78
  edit " ", 3, 15 46 83 10
  button "Cancel", 4, 58 28 50 15, Cancel
  button "Away", 5, 5 10 50 15
  button "Back", 6, 58 10 50 15
  icon 7, 5 28 50 15
}
on *:dialog:Away:sclick:5,6: { 
  $iif($did == 5,amsg 4I am now away! Reason:7 $iif(!$did(3),N/A,$did(3)), amsg 4I am now back! Reason:7 $iif(!$did(3),N/A,$did(3))) 
}