; 1541-DOPUS install script
; Date : 22-SEP-95
; Version 1.0

(transcript "Installing 1541-DOPUS...")

(welcome "You are about to install 1541-DOPUS on\nyour computer system.")

(set @default-dest "rexx:1541-Dopus")
(set name 
	(askdir
		(prompt "Where do you want to install the arexx scripts?\n"
                        "(A drawer will NOT be created there!")

		(help
			"The best place is probably the REXX: drawer. If you havn't changed"
			"anything, this will probably be the S/ drawer.\n"
			@askdir-help
		)
		(default @default-dest)
	)
)

(set @default-dest name)

(copyfiles
	(Prompt "")
	(source "Rexx/Dopus/1541")
	(dest @default-dest )
	(infos)
	(all)
)

(if (trap -1 (getenv "1541.prefs"))
	(
		(set utilsdir
			(askdir
				(prompt
					"Please locate the UTILS/ drawer inside your A64 directory:"
				)
				(help
					"1541-DOPUS uses the shell commands with the A64 emulator. You should"
					"where this shell commands are...\n\n"
					@askstring-help
				)
				(default "Work:Emulators/A64/Utils")
			)
		)


		(set tempdir
			(askdir
				(prompt
					"Where should 1541-DOPUS place it's temporary files:"
				)
				(help
					"T: is the most used place for temporary files...\n\n"
					@askstring-help
				)
				(default "t:")
			)
		)

		(textfile
		(dest "ENVARC:1541.prefs")
			(append utilsdir "\n" @default-dest "\n" tempdir)
		)
		(textfile
			(dest "ENV:1541.prefs")
			(append utilsdir "\n" @default-dest "\n" tempdir)
		)

	)



)



(exit "See ya later!")