on *:dialog:addressbook:sclick:*: {
  if ($did == 3) { dialog -c addressbook addressbook }
  ; We want to add someone, once we add the person, save to a configuration file.
  if ($did == 1) { 
    var %newemail $input(Enter the contact's e-mail address:,ioaegv,New Contact)
    echo -a %newemail
    did -a addressbook 2 %newemail
    var %i = 1
    while (%i <= 10) {
      writeini $qt($scriptdirdata/contacts.lst) Contacts EAddress $+ %i %newemail
    }
    inc %i
  }
}