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

say 'Copying the following file to your rexx: directory...'
say ' '
say '  Burf'
say ' '
say 'Enter ''go'' to continue:'
pull response
if response~='GO' then do
  say 'Installation aborted.'
  exit
  end

signal on error
cmdstring = 'COPY "'pragma('D')'/'Burf'" rexx:'
address command cmdstring
say 'Installation complete.'
exit

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