; Define some global variables
 (set Disk1 "DISK1:")	; Installation referenced by Disk1 and Disk2
 (set Disk2 "DISK2:")
 (set Disk3 "DISK3:")

 (set ask-install-nodir  "(Select directory.(doesn't create directory)\n" )

	(message "\nThis is a installation script for 'Corona' "
		"and it will Install the 'Corona' demo to "
		"wherever you want it to be installed. (HD!) "
		"\n\n'Corona requires a minimum of 2mb CHIP and "
		"fast. "
	)

; set the path where2install the Demo...

	(set	DestPath

		(askdir

			(prompt	"\nPlease select where you want the 'Corona'"
				"to be installed "
				ask-install-nodir
			)
			(help	"'Corona' 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 "#?")
		(files)
		(optional "nofail" "askuser")
	)

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

	(copyfiles

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

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

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

	(copyfiles

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

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

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