/* addentry.txed */

OPTIONS results


JUMP 1 0

STATUS L

parse var result "Name:" filename
first = ""
do i = 1 until filename = ""
  parse var filename newfirst filename
  if i=1 then first = newfirst
  else  first = first||"_"||newfirst
end

filename = "phonebook:"first

SAVEAS filename
NEW

"phonebook/startphone"

exit