/* Install_Notify */
/* Copyright  Michael Tanzer, 1991, 1992 */
/* See additional notices in accompanying documentation */

say 'Copying the following files to your rexx: directory...'
say ' '
say '  Notify'
say '  NotifyTimer'
say '  NotifyNoise'
say '  NotifyDaily'
say '  NotifyChime'
say ' '
say 'Enter ''go'' to continue:'
pull response
if response~='GO' then do
  say 'Installation aborted.'
  exit
  end

fn.1 = 'Notify'
fn.2 = 'NotifyTimer'
fn.3 = 'NotifyNoise'
fn.4 = 'NotifyDaily'
fn.5 = 'NotifyChime'

signal on error
do fx = 1 to 5
  fn = fn.fx
  say 'Copying' fn
  cmdstring = 'COPY "'pragma('D')'/'fn'" rexx:'
  address command cmdstring
  end
say 'Installation complete.'
exit

error:
  say 'An error has occurred while copying' fn.fx'.'
  say 'Installation terminated.'
  exit