home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / PhoneBook / names.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-15  |  556 b   |  27 lines
  1. /* this is PhoneBook/names.rexx */
  2.  parse upper arg x d
  3.  
  4.   if x = "ASSIGN" then do
  5.     askphone = "YES"
  6.   
  7.     intest = 0
  8.  
  9.     do i = 1 
  10.      parse pull inline
  11.      if inline = "" then intest = intest + 1
  12.      if intest = 3 then leave i
  13.      parse var inline name rest
  14.      if name = "phonebook" then askphone = "NO"
  15.     end
  16.  
  17.     if askphone = "YES" then do
  18.       y = request(100,100,"Type name of the directory to which I should assign PHONEBOOK:","vd0:",)
  19.       address command "assign PHONEBOOK: "y
  20.     end
  21.  
  22.   end
  23.  
  24.  'e startup "PhoneBook/startphone"'
  25.  
  26.  
  27.