; MiserPrint V1.0 Installation
; (c) 1993 Heinz-Guenter Boettger

(set #target-prompt
(cat " Where do you want to copy MiserPrint? \n"))

(set #target-help
(cat "                                                   \n"
     " Select the directory, where you want to copy the  \n"
     " main program and its icon.                        \n"
     "                                                   \n"
))
(set target (askdir 
    (prompt  #target-prompt)
    (help    #target-help)
    (default "SYS:UTILITIES")
))
(set @default-dest target)

(copyfiles
	(prompt "Copying MiserPrint...")
	(source "")
	(dest target)
	(pattern "MiserPrint")
	(files)
	(infos)
)

(if (not (exists "envarc:MiserPrint")) (
     (makedir "envarc:MiserPrint")
))

(copyfiles
    (source  "envarc/MiserPrint")
    (dest    "envarc:MiserPrint")
    (all)
)
