; This script will install BootMenu.
; $VER: BootMenuInstall 1.0 (WolfSoft) (02-Jun-1993)

(set @default-dest "RAM:")

(welcome)

(if (not (exists "S:Startup-Sequence.Original"))
	(
		(rename "S:Startup-Sequence" "S:Startup-Sequence.Original" 
			(prompt "Rename S:Startup-Sequence to "
				"S:Startup-Sequence.Orignal ?")
			(help @rename-help)
			(confirm)
		)
		(set substitute true)
	)
)

(copylib
	(prompt "BootMenu")
	(help @copylib-help)
	(source "BootMenu")
	(dest "C:")
	(confirm)
)

(if (= substitute true)
	(copylib
		(prompt "Startup-Sequence")
		(help @copyfiles-help)
		(source "Startup-Sequence")
		(dest "S:")
		(confirm)
	)
)

(if (not (exists "S:BootMenu"))
	(makedir "S:BootMenu"
		(prompt "MakeDir S:BootMenu ?")
		(help @makedir-help)
		(confirm)
	)
)

(if (exists "S:BootMenu")
	(copylib
		(prompt "Just a Shell")
		(help @copylib-help)
		(source "Just a Shell")
		(dest "S:BootMenu")
		(confirm)
	)
)