; This script will install SAM.
; $VER: SAMInstall 1.0 (AGIMA-Productions) (10-Jul-95)

(message "Hello and welcome to the install of:\n\n"
"SAM V1.0 (Show All Mem)\n"
"Made By: AGIMA Productions -95\n\n"
"This install will only take som Kbytes of your space!\n\n"
"SAM... IS THE THING YOU HAVE BEEN WATING FOR !!!\n"
"You MUST install SAM if you are a Coder/Ripper \n\n\n"

"Press Proceed Now!" )

(complete 12)

(set dirren
	(askdir
		(prompt "Choose Path to install SAM in!!!")
		(help @askdir-help)
		(default "SYS:")
 )
)

(complete 30)

(copyfiles
        (prompt "Installing SAM & SAM.Guide to choosen path!.")
        (help @copyfiles-help)
        (source "")
        (dest dirren)
	(choices "SAM" "SAM.Guide")
	(infos)
)

(complete 60)

(copyfiles
        (prompt "Chose which extra files you whant to install with SAM.")
        (help @copyfiles-help)
        (source "")
        (dest dirren)
	(choices "SAMBoot" "SAMInfo.TXT" "THATS WE.JPG" "SOURCE.IFF")
	(infos)
        (confirm)
)

(complete 100)

(message "\nDONE!!!\n"
"SAM can be found at:\n"dirren
"\n\n AND DON'T FORGET TO READ THE DOC !!!")

(exit (quiet))