(set vernum (getversion "intuition.library" (resident)))
(set ver (/ vernum 65536))

(set Curr_Path (pathonly @icon))
(set S_Directory "s")
(set Util_Directory "Utilities")
(set Libs_Directory "Libs")
(set Test_Guide (cat Util_Directory "/AmigaGuide"))
(set Test_Lib (cat Libs_Directory "/AmigaGuide.Library"))

(if (<= ver 37)
	(abort "This Program Requires V37\n(Workbench 2.04)\nTo Run")
)

(welcome "Welcome to the Address Book V1.4 Installer.")

(user 2)

(set Address_Dest (askdir 
	(prompt "Where You Would Like Address Book Installed?")
	(help "Select Or Create A Directory To Place\n The Address Book Program In")
	(default "SYS:Utilities")
))

(set @default-dest Address_Dest)

(copyfiles
	(prompt "Copy Address Book")
	(choices "Address Book" "Address Book.Guide")
	(source Curr_Path)
	(dest Address_Dest)
	(files)
	(infos)
)

(if (= (exists "SYS:S/Address.Dat") 0)
	(
	(copyfiles
		(prompt "Copy Address Book")
		(choices "Address.Dat")	
		(source S_Directory)
		(dest "SYS:S")
	)
	)
)


(if (= (exists "SYS:Utilities/AmigaGuide") 0)
	(
	(copyfiles
		(prompt "Copy Commodore Amiga Guide")
		(choices "AmigaGuide")
		(source Util_Directory)
		(dest "SYS:Utilities")
	)
	)
)

(if (= (exists "SYS:Libs/AmigaGuide.Library") 0)
	(
	(copyfiles
		(prompt "Copy Commodore Amiga Guide")
		(choices "AmigaGuide.Library")
		(source Libs_Directory)
		(dest "SYS:Libs")
	)
	)
)
(exit)