Someone

dialog quote {
  title "Quote Catcher"
  size -1 -1 258 174
  option dbu
  box "Quotes", 1, 6 25 250 122
  list 2, 10 36 240 102, size
  button "Say In Current", 3, 9 153 42 12
  text "Roly's Quote Catcher", 4, 14 8 56 9
  button "Store New", 5, 63 153 37 12
  edit "", 6, 104 154 148 10
}
alias openquote { dialog -m quote quote 
}
on *:dialog:quote:sclick:3:{  
  tokenize 32 $did(quote,2).seltext
  msg $active $1-
} 
on *:dialog:quote:sclick:5:{
  did -a quote 2 $did(quote,6)
  write quotes.txt $date $time DIALOG $chr(124) $did(quote,6)
}
on *:dialog:quote:init:*:{
  did -a quote 2 hello
}
alias readquote { tokenize 32 $iif($1 == 0,$read(quotes.txt),$read(quotes.txt,$1)) | set %readquote $5- | msg $chan 10Random Generated Quote -7 %readquote }
}
alias addquote { write quotes.txt $date $time $chan $chr(124) $1- | msg $chan 10Quote Stored, Roly's Quote Catcher,7 $1- 
}