home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
616.lha
/
Notify_v1.01
/
Install_Notify
next >
Wrap
Text File
|
1992-02-21
|
794b
|
39 lines
/* 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