home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / PhoneBook / changeentry.txed < prev    next >
Encoding:
Text File  |  1996-02-15  |  387 b   |  29 lines
  1. /* changeentry.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.  
  23. SAVEAS filename
  24. NEW
  25.  
  26. "phonebook/startphone"
  27.  
  28. exit
  29.