;$VER:Script generated by DRACS for HILLSEA LIDO - HD INSTALL by DRACS of BAD KARMA.

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

; Texts

(set #Intro-Txt
(cat "\n\nWelcome to \n"
"HILLSEA LIDO - HD INSTALL by DRACS of BAD KARMA.\n"
"Hard Disk Install Script\n\n\n\n"
"This script has been generated by DRACS\n\n"
))(set #Warning-Txt
(cat "Warning !\n\n\n"
"HILLSEA LIDO - HD INSTALL by DRACS of BAD KARMA. requires 2 MB 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 HILLSEA-LIDO will "
"be created there."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install HILLSEA LIDO - HD INSTALL by DRACS of BAD KARMA.. \n\n"
"A directory HILLSEA-LIDO 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 "DISK1:")
(dest (tackon target "HILLSEA-LIDO"))
(pattern "#?")
)
(complete 50)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "DISK2:")
(dest (tackon target "HILLSEA-LIDO"))
(pattern "#?")
)
(complete 100)