;$VER:1.0 (31.01.2001)

(complete 0)
(set @default-dest "ram:")

; Texts

(set #Intro-Txt
(cat "\n\nWelcome to \n"
"Acces Denide\n"
"Hard Disk Install Script\n\n\n\n"
"This program is First Class product\n By Pytonsoftware in 2001\n\n"
))(set #Warning-Txt
(cat "Warning !\n\n\n"
"Acces Denide requires 50 Kb free on your disk \n\n"
"Think of it before destroying your disk...\n\n"
))(set #Path-Txt
(cat "Select the target directory. A directory AccesDenide_1.11B will "
"be created there."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install Acces Denide. \n\n"
"A directory AccesDenide_1.11B will be created there.\n\n"
"Default is Work:\n\n\n"
@askdir-help
))
(set Assign-Help-Txt
(cat "\nA script located in the target directory wil make "
"the Assigns. The User-Startup will be patched in order "
"to call this script.\n\n\n"
@startup-help
))
; Main 

(message #Intro-Txt)
(message #Warning-Txt)
(set target 
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))
(set @default-dest target)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "install_data/")
(dest (tackon target "AccesDenide_1.11B"))
(pattern "#?.(11|guide|0|info)")
)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "icons_data/")
(dest ( target ))
(pattern "#?.info")
)

(message "\n\n\n\nYou must now init program.... ")
(run "install_data/init.exe")
(run "install_data/usersmaker1.0")
(message"\n\n\nNow installer copy example isuse \nand shell-startup to S:\n old version of your files will\nsaved on file with pattern #?.old\n")
;(run "copy >NIL: #?.s s:")
(set @default-dest target)
(copyfiles
(prompt "Copying to " s:)
(dest (tackon target "S:"))
(source "install_data/")
(pattern "#?.s")
)
(run "rename s:shell-startup s:shell-startup.old")
(run "rename s:shell-startup.s s:shell-startup")
(run "rename s:isuse.s s:isuse")

(message "\n\nYou must only write this:\nYOUR_DISK(or ASSIGN):YOUR_PATH/accesdenide1.11\n to your startup-sequence\n\n\n")
(complete 0)
(exit "\n\n\n\nAcces Denide v1.11B succesfully installed." (quiet))