home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / rxarplib.lha / rexx / PhoneBook / deleteentry.txed < prev    next >
Encoding:
Text File  |  1988-09-16  |  369 b   |  26 lines
  1. /* deleteentry.txed */
  2.  
  3. OPTIONS results
  4.  
  5.  
  6. JUMP 1 0
  7.  
  8. STATUS L
  9.  
  10. parse var result "Name:" filename
  11. first = ""
  12. do i = 1 until filename = ""
  13.   parse var filename newfirst filename
  14.   if i=1 then first = newfirst
  15.   else  first = first||"_"||newfirst
  16. end
  17.  
  18. filename = "phonebook:"first
  19.  
  20.  
  21. if exists(filename) then address COMMAND delete filename
  22. NEW
  23. "phonebook/startphone"
  24.  
  25. exit
  26.