; ##########################################################################
; #                                                                        #
; #               ****  ArcExtract v1.3 Installer Script ****              #
; #                                                                        #
; #                                                                        #
; #                       Written by Alvaro Thompson                       #
; #                                                                        #
; ##########################################################################
;
; $VER: Install 1.3 (02.06.97)

(set #info
(cat "\n\n- ArcExtract v1.3 -"
     "\n\nThis program is EMailWare, although"
     "\nthe program is still fully Copyrighted"
     "\n\nWritten by Alvaro Thompson ©1997"
))


(set #where
(cat "Where should I copy the files?"
     "\n(A drawer will be created)"
))     

(set #lib1
(cat "I am now going to install the Reqtools.library"
))

(set #lib2
(cat "I am now going to install the powerpacker.library"
))

(message #info)
              
(set destination
 (askdir
  (prompt #where)
  (help @askdir-help)
  (default "SYS:")
 )
) 

(makedir (tackon destination "ArcExtract" (infos)))

(set trgt (tackon destination "ArcExtract"))

(copyfiles
  (source "")
  (dest trgt)
  (help @copyfiles-help)
  (all)
)

(copylib
  (prompt #lib1)
  (source (tackon trgt "libs/Reqtools.library"))
  (dest "LIBS:")
  (help @copylibs-help)
)    

(copylib
  (prompt #lib2)
  (source (tackon trgt "libs/powerpacker.library"))
  (dest "LIBS:")
  (help @copylibs-help)
)

(delete (tackon trgt "LIBS") (all))
(delete (tackon trgt "Libs.info"))
(delete (tackon trgt "Install"))
(delete (tackon trgt "Install.info"))

(set @default-dest trgt)

(exit)