;Intaller for TurboCAT-Pro!

;September 1995, David Hill.

(complete 0)

(set @default-dest "WORK:")

(complete 2)

(message " WARNING!\n"
"\n"
"\n"
"\n"
"\n"
" YOU MUST BOOT FROM YOUR HARD DRIVE AS NORMAL BEFORE RUNNING THIS INSTALLATION")
(set dest1 (askdir
                    (prompt  "Where you want to install the TurboCAT-Pro directory?")
                    (default @default-dest)
                    (help "You must choose where you want to install"
                          " the TurboCAT-Pro directory. By default"
                          " the path > "
                          @default-dest
                          " will be chosen.\n")
             )
)   
(complete 5)
(set destination (tackon dest1 "TurboCAT-Pro"))
(complete 10)
(makedir destination (prompt "\nCreate the directory " target " ?")
                     (help   "\nThe directory 'TurboCAT-Pro' will be created with this step.")
                     (safe) 
                     (infos) 
                     (confirm AVERAGE)
)
(complete 15)
(IF( = (exists destination) 0 )
        (message "The directory " destination " doesn'tt exist !\n"
                 "I can't continue this intallation...\n"
        )
)
(IF(NOT(exists destination))
        (exit(quiet))
)
(complete 30)
(copyfiles (prompt "Copy some files to " destination)
           (source "TurboCAT-PRO:")
           (dest   destination)
           (all)
)
(complete 55)
(if(not(exists "LIBS:req.library"))
        (copyfiles (prompt  "Copy of the req.library in your"
                            " target directory LIBS:\n")
        (source  "Turbocat-pro:LIBS")
        (dest    "LIBS:")
        (pattern "req.lib#?")
        )
)
(complete 60)

(if(not(exists "LIBS:reqtools.library"))
        (copyfiles (prompt  "Copy of the reqtools.library in your"
                            " target directory LIBS:\n")
                   (source  "TurboCAT-Pro:LIBS")
                   (dest    "LIBS:")
                   (pattern "reqtools.lib#?")
        )
)
(complete 68)
(if(not(exists "LIBS:powerpacker.library"))
        (copyfiles (prompt  "Copy of the powerpacker.library in your"
                            " target directory LIBS:\n")
                   (source  "TurboCAT-Pro:LIBS")
                   (dest    "LIBS:")
                   (pattern "powerpacker.lib#?")
        )
)
(complete 70)
(copyfiles (prompt  "Copy the prefs file\n"
                    "in your target directory S:\n")
           (source  "Turbocat-pro:prefs")
           (dest    "S:")
           (pattern "TCP_Prefs#?")
)
(complete 80)

(if(not(exists "C:PPMORE"))
        (copyfiles (prompt  "Copy of some executables in your target"
                            " directory C:\n")
                   (source  "turbocat-pro:C")
                   (dest    "C:")
                   (pattern "PPM#?")
        )
)
(complete 92)
(if(not(exists "C:fimp"))
        (copyfiles (prompt  "Copy of some executables in your target"
                            " directory C:\n")
                   (source  "Turbocat-pro:C")
                   (dest    "C:")
                   (pattern "fimp#?")
        )
)
(complete 100)
(message "100% installation complete !\n"

         "PLEASE NOTE!\n"

         " Before you can use TurboCAT-Pro from your hard drive you must add the line\n"
	 "\n"
"ASSIGN TURBOCAT-PRO: 'your-drive-name:path/'TURBOCAT-PRO\n"
	 "\n"
         " to your S:User-Startup file\n"
"\n"
"(Some people like to protect their startup files from alteration, which may have caused problems\n"
"with this installation, therefore setting the ASSIGN has been left out of the installer)\n"
)
(exit (quiet))