; Define some global variables
 (set Disk1 "Embassy_1:")	; Installation referenced by Disk1 and Disk2
 (set Disk2 "Embassy_2:")
 (set Disk3 "Embassy_3:")

 (set ask-install-nodir  "(Select directory.)\n"            )

	(message "\nThis is a intallation script of 'ThRiLLEd' "
		"and it will Install the 'ThRiLLEd' demo to "
		"wherever you want it to be installed. (HD!) "
		"\n\n'ThRiLLEd requires a minimum of 2mb CHIP and "
		"a1200 with a 68020 CPU, altough a faster CPU and "
		"FAST-memory are recommended. 'ThRiLLEd' is tested "
		"on A1200(2mb chip),A1200(2mb chip,4mb FAST "
		"ec30 CPU),A4000(2mb chip,2mb FAST,ec30 CPU) "
	)

; set the path where2install the Demo...

	(set	DestPath

		(askdir

			(prompt	"\nPlease select where you want the 'ThRiLLEd'"
				"to be installed "
				ask-install-nodir
			)
			(help	"'ThRiLLEd' consists of several files that are "
				"required to run the demo, these files must always "
				"be in the same drawer as the mainprogram.\n\n "
			)

			(default "HD0:")
		)
	)

	(copyfiles

		(source (tackon Disk1 ""))
		(dest	DestPath)

		(pattern "emb.#?")
		(files)
		(optional "nofail" "askuser")
	)

	(copyfiles

		(source (tackon Disk1 ""))
		(dest	DestPath)

		(pattern "Thrilled")
		(files)
		(optional "nofail" "askuser")
	)

	(message "\nINSERT DISK 2 (Embassy_2:) "
		)

	(copyfiles

		(source (tackon Disk2 ""))
		(dest	DestPath)

		(pattern "emb.#?")
		(files)
		(optional "nofail" "askuser")
	)

	(message "\nINSERT DISK 3 (Embassy_3:) "
		)

	(copyfiles

		(source (tackon Disk3 ""))
		(dest	DestPath)

		(pattern "emb.#?")
		(files)
		(optional "nofail" "askuser")
	)


	(message "\n'ThRiLLEd' should be run from shell/CLI and "
		"from the directory it was installed to..."
		)