; archiver Installer script. © THP/c!truS'95

      ; drugs/alcohol/pain/adrenalin. there must be other ways outta here.


; /******************************************************************************/

                                   ; Uh?

	(set #copying-lha  "Copying LhA 1.38 to C:")
	(set #copying-dms  "Copying DMS 1.11 to C:")
	(set #copying-zoom  "Copying Zoom 5.4 to C:")
	(set #copying-arplib "Copying ARP.library to LIBS:")

; /******************************************************************************/

                    ; Enough kacking around, let's GO!

(if (< (/ (getversion) 65536) 37)
	(

	(copylib
		(prompt "\n" #copying-arplib)
		(help @copylib-help)
		(source "libs/arp.library")
		(dest "libs:")
		(confirm)
	)
	)
)

(copylib
	(prompt "\n" #copying-lha)
	(help @copylib-help)
	(source "Archivers/LhA")
	(dest "C:")
	(confirm)
)


(copyfiles
	(prompt "\n" #copying-dms)
	(help @copyfile-help)
	(source "Archivers/DMS")
	(dest "C:")
	(confirm)
)


(copyfiles
	(prompt "\n" #copying-zoom)
	(help @copyfile-help)
	(source "Archivers/Zoom")
	(dest "C:")
	(confirm)
)

(message (cat "\n"
	       "The programs to handle the archive formats on this CD have"
	       " now been installed.")
)

(exit (quiet))