Forums Scripts & Popups Help: txt file in list box

alias quit.manager {
  dialog -m quit.manager quit.manager
}
dialog quit.manager {
  title "Quit Manager"
  size -1 -1 401 353
  option pixels
  icon icon.ico, 0
  box "Stored Quit Messages", 1, 4 4 394 221
  list 2, 8 20 386 198, size hsbar vsbar
  box "Add or Remove Quit Message", 3, 4 228 394 67
  text "Quit Message:", 4, 8 248 70 16
  edit "", 5, 80 244 314 21, autohs limit 350
  button "Add Message", 6, 80 270 114 20
  button "Delete Message", 7, 200 270 114 20
  check "Include VS", 8, 324 270 70 20, disable
  button "Quit using selected message", 9, 4 304 146 25, default
  button "Set default message", 10, 154 304 106 25
  check "Set Random", 11, 264 304 68 25, push
  button "Okay", 12, 336 304 62 25, ok
  text "'Set Random' will use a random quit message every time you quit!", 13, 4 332 314 16
}
on *:dialog:quit.manager:init:0: {
  var %x = 1
  while (%x <= $lines(vsd\quit.vsd)) {
    .did -a $dname 2 $read(vsd\quit.vsd,%x)
    inc %x
  }
  if (%quit2 == Random) { did -c $dname 11 | did -b $dname 10 }
}
on *:dialog:quit.manager:sclick:2: {
  did -ra $dname 5 $did(2).seltext
}
on *:dialog:quit.manager:sclick:6: {
  if ($did(5)) {
    if ($read(vsd\quit.vsd,w,$did($dname,5))) {
      halt
    }
    write vsd\quit.vsd $did($dname,5)
    did -a $dname 2 $did(5)
    did -r $dname 5
  }
}
on *:dialog:quit.manager:sclick:7: {
  write -dw $+("*,$did(2,$did(2).sel),*") vsd\quit.vsd
  did -d $dname 2 $did(2).sel
  did -r $dname 5
}
on *:dialog:quit.manager:sclick:9: {
  quit $did(2).seltext
}
on *:dialog:quit.manager:sclick:10: {
  set %quit2 $did(2).seltext
}
on *:dialog:quit.manager:sclick:11: {
  if (%quit2 != Random) {
    set %quit2 Random
    did -b $dname 10
  }
  else {
    set %quit2
    did -e $dname 10
  }
}