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