;
; Install For ARArchive ©1995 Robert Reiswig
; $Id: ARArchive  1.0 
;



(message "ARArchive V1.3.02\n\nBy: Robert Reiswig\nrcr@netcom.com\n\n"
         "This Installer will do two things:\n\n1) Copy ARArchive to where you tell it."
         "\n2) Add an AR: assign to your User-Startup. ")


(set ARA_dest
        
           (askdir
                   (prompt "Where do you wish to install:\nARArchive")
                   (help @askdir-help)
                   (default @default-dest)
                   
           )
                
        
)


(set @default-dest ARA_dest) 


(copyfiles (source "ARArchive")
           (dest ARA_dest)
           (infos)
)




(set AR_dest
     
                (askdir
                        (prompt "In which drawer are the\n*Uncompressed* Amiga Reports\nstored?")
                        (help @askdir-help)
                        (default @default-dest)
                )
                
)


(set DoThis (cat "ASSIGN AR: " AR_dest))


(startup "ARArchive"
          (prompt "Adding an ASSIGN to your S:User-startup.")
          (command (DoThis))
          (help
                  "\nIn order for ARArchive to find the *uncompressed* Amiga Reports"
                  "an assign must be made for AR:"
          )
)



(run (DoThis))