Something

alias nk dialog -m nick nick
dialog nick {
  title "Russell's Friendslist"
  size -1 -1 127 200 
  option dbu 
  text "Nickname To Add",1, 30 7 94 10, left
  edit "", 2, 2 15 94 13, right 
  Button "Submit", 3, 96 15 30 13, Right
  list 4, 2 30 123 150, left
  button "Remove", 5, 14 180 100 20, left
}
on *:dialog:nick:init:0:{
  var %f = 0
  while (%f < $lines(friends.txt)) {
    inc %f 1
    did -a nick 4 $read(friends.txt, %f)
  }
}
on *:Dialog:nick:close:4:{
  var %t = 0
  while (%t < $did(nick,4,0)) {
    inc %t 1
    write friends.txt $did(nick,4,%t)
  }
}
on *:dialog:nick:sclick:*:{
  if ($did == 3) { set %friend $did(nick,2).text | did -a nick 4 %friend | unset  %friend } 
  if ($did == 5) {
    var %q = 0
    while (%q < $did(nick,4,0).sel) {
      inc %q 1
      did -d nick 4 $did(nick,4,%q).sel
    } 
  }
}