; $VER: The SamClock Installer v2.0 (14.01.97)
; By Samuel Bowers for Samsof Software
;  Samsof 1997

(welcome "Welcome to the SamClock Installer routine.") 

(complete 5)

(set target
	(askdir
		(prompt "Please select a drawer on your hard drive in which to place the SamClock program. A drawer called SamClock will be created")
		(help "Select the directory that you wish SamClock to live in. Bear in mind that a drawer called Samclock will be created")
		(default "")
		(disk)
	)
)

(set target (tackon target "SamClock"))

(complete 15)

(copyfiles
	(prompt "")
	(source "SamClock_2.0")
	(dest target)
	(help "")
	(infos)
)

(complete 23)

(copyfiles
	(prompt "")
	(source "0")
	(dest target)
	(help "")
	(infos)
)

(complete 31)

(copyfiles
	(prompt "")
	(source "1")
	(dest target)
	(help "")
	(infos)
)

(copyfiles
	(prompt "")
	(source "2")
	(dest target)
	(help "")
	(infos)
)

(complete 46)

(copyfiles
	(prompt "")
	(source "Samfont1.font")
	(dest "sys:fonts")
	(help "")
	(infos)
	(confirm)
)

(complete 54)

(copyfiles
	(prompt "")
	(source "Samfont2.font")
	(dest "sys:fonts")
	(help "")
	(infos)
	(confirm)
)

(complete 63)

(copyfiles
	(prompt "")
	(source "samfont1.info")
	(dest "sys:fonts")
	(help "")
	(infos)
	(confirm)
)

(complete 72)

(copyfiles
	(prompt "")
	(source "samfont2.info")
	(dest "sys:fonts")
	(help "")
	(infos)
	(confirm)
)

(complete 80)

(copyfiles
	(prompt "")
	(source "samfont1/44")
	(dest "sys:fonts/samfont1")
	(help "")
	(infos)
	(confirm)
)

(complete 89)
	
(copyfiles
	(prompt "")
	(source "samfont2/8tf")
	(dest "sys:fonts/samfont2")
	(help "")
	(infos)
	(confirm)
)

(copyfiles
	(prompt "")
	(source "SamClock.guide")
	(dest target)
	(help "")
	(infos)
)	

(complete 100)

(exit "The Installation is now complete. The SamClock program can now be found in the " target " drawer. Samsof Software wishes you every enjoyment with this program." (quiet))