;$VER: Install-ATAPI 3.1 (11.04.95)
;Copyright 1995 Elaborate Bytes, Oliver Kastl

; Check the configuration

(onerror
	(makeassign "ATAPI" (safe))
)

(complete 0 )

(set @default-dest "")

(makeassign "ATAPI" "" ( safe) )

(working "\n\nLaunching the FindCD program to find "
         "the Device and Unit of your CD-Rom..."
         "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
         "\n\nChoose the device and unit and click \"USE\"!")

(set #Product ( run "ATAPI:FindCD DEVNAME=(tandemat#?|#?atapi#?) PATH=ATAPI:Devs" ( safe ) ) )

(if ( NOT (= #Product 0) )
	(
	(abort "\nCould not find your CDROM hardware!"
			 "\n\nYou must select device and unit within the FindCD program "
			 "and click the \"USE\" gadget!" 
          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
			 "\n\nPlease check your hardware installation and try again! " )
	)
)


( set #CDROM_Device (getenv "CDROM_Device" ))

(complete 50 )

( set #SourcePath (tackon "ATAPI:devs" #CDROM_Device))

(if (NOT (exists #SourcePath ))
	(
	(abort "\n\n"
			 "The " #CDROM_Device " is not present on the installation disk!" )
	)
)

(copylib
	(prompt "This will copy the " #CDROM_Device " to your DEVS: directory.")
	(help "This will copy the " #CDROM_Device " to your DEVS: directory.")
	(source #SourcePath)
	(confirm)
	(dest "DEVS:")
)

(copylib
	(prompt "This will copy the SetAtapiSpeed program to your C: directory.")
	(help "This will copy the SetAtapiSpeed program to your C: directory.")
	(source "ATAPI:C/SetAtapiSpeed")
	(confirm)
	(dest "C:")
)


(makeassign "ATAPI" (safe))

(complete 100 )

(set @default-dest "DEVS:")

