home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 600-699 / ff603.lha / Notify / Install_Notify < prev    next >
Text File  |  1992-02-20  |  794b  |  39 lines
  1. /* Install_Notify */
  2. /* Copyright © Michael Tanzer, 1991, 1992 */
  3. /* See additional notices in accompanying documentation */
  4.  
  5. say 'Copying the following files to your rexx: directory...'
  6. say ' '
  7. say '  Notify'
  8. say '  NotifyTimer'
  9. say '  NotifyNoise'
  10. say '  NotifyDaily'
  11. say '  NotifyChime'
  12. say ' '
  13. say 'Enter ''go'' to continue:'
  14. pull response
  15. if response~='GO' then do
  16.   say 'Installation aborted.'
  17.   exit
  18.   end
  19.  
  20. fn.1 = 'Notify'
  21. fn.2 = 'NotifyTimer'
  22. fn.3 = 'NotifyNoise'
  23. fn.4 = 'NotifyDaily'
  24. fn.5 = 'NotifyChime'
  25.  
  26. signal on error
  27. do fx = 1 to 5
  28.   fn = fn.fx
  29.   say 'Copying' fn
  30.   cmdstring = 'COPY "'pragma('D')'/'fn'" rexx:'
  31.   address command cmdstring
  32.   end
  33. say 'Installation complete.'
  34. exit
  35.  
  36. error:
  37.   say 'An error has occurred while copying' fn.fx'.'
  38.   say 'Installation terminated.'
  39.   exit