;$VER: AsimCDFS Install 2.1 (25.10.93) 
;Copyright ©1993 Asimware Innovations

(onerror (makeassign "AsimCDFSInst") )

(set #autoMount 1)
(set #CDDefault_NC "CD0" )
(set #isPioneer 0)
(set #PioneerSeparate 0)
(set #supportLUN 1)

(set #wbversion (getversion "libs:version.library"))
(set #wbversion (/ #wbversion 65536) )

(set #SCSIDevice "scsi.device")
(set #SCSIUnit 4)

(set @default-dest "SYS:AsimCDFS")

(complete 0)

(if (< #wbversion 37)
	(abort "\n\nAmigaDOS 2.0 or higher is required for AsimCDFS 2.0. "
			 "\n\nAn upgrade will be needed for your Amiga."
			 "\n\nYou are currently running version " #wbversion ".")
)


(if (< (getdiskspace "SYS:") 66560)
	(abort "\n\nApproximately 65K of disk space is needed on your SYS: volume."
			 "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)	"K free.\n\n"
			 "Delete or transfer some files from the SYS: volume and try again." )
)

(askdisk
	(prompt "Please insert the disk labeled \"AsimCDFS_v2_Install\".")
	(help	"AsimCDFS FileSystem and other utilities will be copied "
			"from this disk into your system.")
	(dest  "AsimCDFS_v2_Install")
	(newname "AsimCDFSInst")
)

(set #theirlevel @user-level )
(user 2)

(complete 0 )
(set #IsAmiga
	(askbool
		(prompt "\n\nAre you installing AsimCDFS on a CDTV or Amiga?" )
		(default 1 )
		(choices "Amiga" "CDTV" )
		(help "\n\nIf AsimCDFS is being used in conjunction with a CDTV/A570 unit "
				"then note this with the CDTV gadget.\n\n "
				"Otherwise, you will be installing AsimCDFS on an Amiga equipped "
				"with a SCSI controller and SCSI CD-Rom drive." )
	)
)

(complete 5 )
(if (not #IsAmiga) 
	((set #CDDefault_NC "CD1" )
	(set #SCSIDevice "cdtv.device")
	(set #SCSIUnit 0)
	)
)

(if #IsAmiga
	(set #isPioneer 
		(askbool
			(prompt "\n\n\nIs your CD-Rom drive a Pioneer DRM-60x?" )
			(default 0)
			(choices "Pioneer DRM-60x" "Other CD-Rom")
			(help "\n\nIf you are using AsimCDFS with a Pioneer DRM-60x, indicate this "
					"in your choice.\n\nThis drive is a high-performance 6-disc minichanger and "
					"is not common."
					"\n\nOtherwise select Other CD-Rom." )
		)
	)
)


(complete 10 )
(if #isPioneer
	(
	(set #PioneerSeparate
			(askbool
				(prompt "\n\nDo you wish to have 6 separate devices mounted, or would you like all 6 discs pooled into 1 device?\n\n" )
				(default 0 )
				(choices "Separate" "Pooled")
				(help "\n\nIf you wish to have access to all 6 discs simultaneously, then "
						"select Separate, otherwise select Pooled  --  in the latter case, "
						"you can switch between the discs with DiscChanger." )
			)
		)

	(if #PioneerSeparate
		((set #CDDevice_NC 
				(askstring
					(prompt "\n\nWhat is the base-name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present.  See manual for explanation.)" )
					(default "CD" )
					(help "\n\nThis is the base name under which AmigaDOS will reference the "
							"CD-Rom as.  As you are installing AsimCDFS for a Pioneer 6-disc changer "
							", 6 such devices named <basename>0 through <basename>5 will be mounted (ie.  CD0, CD1, ..., CD5) "
							"\n\nThe trailing : (colon) or the 0 through 5 MUST NOT be present." )
				)
			)
		(set #CDDevice (cat #CDDevice_NC "0:")))
		)
	)
)


(if (not #PioneerSeparate)
	((set #CDDevice_NC 
		(askstring
			(prompt "\n\nWhat is the name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present)" )
			(default #CDDefault_NC )
			(help "\n\nThis is the name under which AmigaDOS will reference the "
					"CD-Rom as.  While usually "
					#CDDefault_NC
					", it can be any name you choose. "
					"\n\nThe trailing : (colon) MUST NOT be present." )
		)
	)

	(set #CDDevice (cat #CDDevice_NC ":") ))
)



(if #IsAmiga
	(set #useInquire
		(askbool
			(prompt "\n\nWould you like to use the SCSI Inquire utility to locate your CD-Rom drive?" )
			(default 1 )
			(help "\n\nThe SCSI Inquire utility will scan your system for suitable SCSI "
					"devices and display a listing of all units connected to the device.  "
					"Your CD-Rom drive must be powered-on and correctly connected "
					"for it to be acknowledged by this utility.  Consult the SCSI Inquire "
					"chapter for more information." )
		)
	)
)


(if #useInquire
	(
	(run "AsimCDFS_v2_Install:SCSI_Inquire")	
	
	(if (exists "ENV:SCSI_Device")
		((set #SCSIDevice (getenv "SCSI_Device"))
		(set #SCSIUnit (+ (getenv "SCSI_Unit")))
		))
	)
)



(complete 15 )
(if #IsAmiga
	((set #SCSIDevice 
		(askstring
			(prompt "\n\nWhat is the name of your SCSI device?" )
			(default #SCSIDevice )
			(help "\n\nThis is the name of the device driver for your particular "
					"SCSI card.  For example, the Commodore 2091/590/Amiga3000 has "
					"a name of \"scsi.device\".\n\n"
					"If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number. "
					"Otherwise, consult either the AsimCDFS User's Guide or contact the SCSI Controller's manufacturer." )
		)
	)
	
(complete 18 )
	(set #SCSIUnit 
		(asknumber
			(prompt "\n\nWhat is the SCSI Unit number of your CD-Rom drive?" )
			(default #SCSIUnit )
			(help "\n\nThis is the unit # of the CD-Rom drive.  This is usually a "
					"numerical value between 0 and 6.\n\n"
					"If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number.  "
					"Otherwise, consult the CDRom drive documentation for instructions on "
					"determining the unit #." )
		)
	))
)


(complete 35 )
(set #autoMount
	(askbool
		(prompt "\n\nWould you like the CD-Rom drive automatically mounted upon bootup?" )
		(help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount AsimCDFS.\n")
		(default 1)
	)
)


(if #autoMount
	(set #mountDirectory "devs:DOSDrivers/")
)

(if (not #autoMount)
	(set #mountDirectory "sys:storage/DOSDrivers/")
)


(set #tunesDir
	(askdir
		(prompt "Specify the directory in which the AsimCDFS support programs will be placed:" )
		(help "AsimCDFS contains a number of support programs.  This directory will specifiy where the programs will be placed.  If you need, create a separate directory for the files.")
		(default @default-dest)
		(newpath)
	)
)

(if (not (exists #tunesDir (noreq)))
	(makedir #tunesDir
		(prompt "Creating the AsimTunes directory...")
		(help "This will create the specified directory for the support programs.")
		(infos)
		)
)
(makeassign "AsimTunes" #tunesDir)




(user #theirlevel)
(complete 20 )

(complete 30 )
(protect "l:AsimCDFS" "rwed" )
(copyfiles
	(prompt "\n\nCopying AsimCDFS FileSystem to the l: directory.\n" )
	(source "AsimCDFSInst:l/AsimCDFS")
	(dest "l:")
	(confirm)
	(help "\n\nThis will copy over the AsimCDFS FileSystem program to your "
		"l: directory\n\nThis is an essential step in the installation "
		"process.\n" )
)



(complete 30 )
(protect "devs:asimcdfs.device" "rwed" )
(copyfiles
	(prompt "\n\nCopying asimcdfs.device to the devs: directory.\n" )
	(source "AsimCDFSInst:devs/asimcdfs.device")
	(dest "devs:")
	(confirm)
	(help "\n\nThis will copy over the asimcdfs.device program to your "
		"devs: directory\n\nThis is an essential step in the installation "
		"process.\n" )
)





(if (= #wbversion 37) 
	((if #PioneerSeparate
		((set #startupCommand1 (cat "mount " #CDDevice_NC "0: from devs:MountList." #CDDevice_NC "\n") )
		(set #startupCommand2 (cat "mount " #CDDevice_NC "1: from devs:MountList." #CDDevice_NC "\n") )
		(set #startupCommand3 (cat "mount " #CDDevice_NC "2: from devs:MountList." #CDDevice_NC "\n") )
		(set #startupCommand4 (cat "mount " #CDDevice_NC "3: from devs:MountList." #CDDevice_NC "\n") )
		(set #startupCommand5 (cat "mount " #CDDevice_NC "4: from devs:MountList." #CDDevice_NC "\n") )
		(set #startupCommand6 (cat "mount " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n") )
		(set #startupWait "wait sec=4\n" )
		
		(if #autoMount
			((protect "S:User-Startup" "rwed" )
			(protect "S:Startup-Sequence" "rwed" )
			
			(startup "AsimCDFS"
				(command (cat "assign AsimTunes: " #tunesDir "\n"))
				(command #startupCommand1 )
				(command #startupCommand2 )
				(command #startupCommand3 )
				(command #startupCommand4 )
				(command #startupCommand5 )
				(command #startupCommand6 )
				(prompt "Inserting MOUNT commands into the startup-sequence")
				(help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
						"\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
						"automatically start AsimCDFS upon bootup." )
			))
		))
	)

	(if (not #PioneerSeparate)
		((set #startupCommand (cat "mount " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
		(if #autoMount
			((protect "S:User-Startup" "rwed" )
			(protect "S:Startup-Sequence" "rwed" )
			
			(startup "AsimCDFS"
				(command (cat "assign AsimTunes: " #tunesDir "\n"))
				(command #startupCommand )
				(prompt "Inserting MOUNT command into the startup-sequence")
				(help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
						"\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
						"automatically start AsimCDFS upon bootup." )
			))
		))
	)
	
	(if (not #autoMount)
		((protect "S:User-Startup" "rwed" )
		(protect "S:Startup-Sequence" "rwed" )
		
		(startup "AsimCDFS"
			(command (cat "assign AsimTunes: " #tunesDir "\n"))
			(prompt "Inserting MOUNT command into the startup-sequence")
			(help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
					"\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
					"automatically start AsimCDFS upon bootup." )
		))
	)

	(protect (cat "devs:MountList." #CDDevice_NC) "rwed" )

	(if #isPioneer
		(textfile
			(dest (cat "devs:MountList." #CDDevice_NC) )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append #CDDevice_NC "0:\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 0" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = 1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n\n")
			(append #CDDevice_NC "1:\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 1" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = 1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n\n")
			(append #CDDevice_NC "2:\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 2" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = 1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n\n")
			(append #CDDevice_NC "3:\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 3" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = 1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n\n")
			(append #CDDevice_NC "4:\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 4" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = 1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n\n")
			(append #CDDevice_NC "5:\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 5" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = 1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n\n")
		)
	)



	(if (not #isPioneer)
		(textfile
			(dest (cat "devs:MountList." #CDDevice_NC) )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append #CDDevice "\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = " #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Mount          = " #autoMount "\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
			(append "#\n")
		)
	))
)



(if (> #wbversion 37) 
	((if (not #PioneerSeparate)
		((textfile
			(dest (cat #mountDirectory #CDDevice_NC) )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = " #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)

		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC ".info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)		

	))


	(if #PioneerSeparate
		((textfile
			(dest (cat #mountDirectory #CDDevice_NC "0") )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 0" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)

		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC "0.info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)
		
		(textfile
			(dest (cat #mountDirectory #CDDevice_NC "1") )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 1" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)

		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC "1.info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)

		(textfile
			(dest (cat #mountDirectory #CDDevice_NC "2") )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 2" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)
		

		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC "2.info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)

		(textfile
			(dest (cat #mountDirectory #CDDevice_NC "3") )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 3" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)
		
		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC "3.info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)

		(textfile
			(dest (cat #mountDirectory #CDDevice_NC "4") )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 4" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)

		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC "4.info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)

		(textfile
			(dest (cat #mountDirectory #CDDevice_NC "5") )
			(append "/************************************************************/\n"
					  "/*  AsimCDFS MountList entry -- ©1993 Asimware Innovations  */\n"
					  "/************************************************************/\n")
			(append "	Device         = " #SCSIDevice "\n" )
			(append "	Unit           = 5" #SCSIUnit "\n" )
			(append "	Buffers        = 0\n")
			(append "	BufMemType     = 5\n" )
			(append "	Mask           = 0xffffffe\n" )
			(append "	Flags          = 0\n" )
			(append "	FileSystem     = l:AsimCDFS\n")
			(append "	DosType        = 0x662dabac\n")
			(append "	GlobVec        = -1\n")
			(append "	Reserved       = 0\n")
			(append "	LowCyl         = 0\n")
			(append "	HighCyl        = 999\n")
			(append "   Mount          = 1\n")
			(append "	Surfaces       = 1\n")
			(append "	BlocksPerTrack = 32\n")
			(append "	Priority       = 10\n")
			(append "	StackSize      = 5000\n")
		)
		(copyfiles
				(prompt "\n\nCopying Mountlist icon")
				(source "AsimCDFSInst:Devs/DOSDrivers/CD0.info")
				(dest #mountDirectory)
				(newname (cat #CDDevice_NC "5.info"))
				(help "\n\nThis will copy over an icon for the mountlist file.")
				(confirm)
			)
	))


	(protect "S:User-Startup" "rwed" )
	(protect "S:Startup-Sequence" "rwed" )
	(startup "AsimCDFS"
		(command (cat "assign AsimTunes: " #tunesDir "\n"))
		(prompt "Inserting MOUNT command into the startup-sequence")
		(help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
				"\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
				"automatically start AsimCDFS upon bootup." )
		)
))



(if #IsAmiga
	((if #isPioneer
		((if #PioneerSeparate
			((copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
				(dest "ENVArc:AsimCDFS")
				(newname (cat #CDDevice_NC "0"))
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			)
	
			(copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
				(dest "ENVArc:AsimCDFS")
				(newname (cat #CDDevice_NC "1"))
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			)
	
			(copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
				(dest "ENVArc:AsimCDFS")
				(newname (cat #CDDevice_NC "2"))
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			)
	
			(copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
				(dest "ENVArc:AsimCDFS")
				(newname (cat #CDDevice_NC "3"))
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			)
	
			(copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
				(dest "ENVArc:AsimCDFS")
				(newname (cat #CDDevice_NC "4"))
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			)
	
			(copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
				(dest "ENVArc:AsimCDFS")
				(newname (cat #CDDevice_NC "5"))
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			))
		)
			
		(if (not #PioneerSeparate)
			(copyfiles
				(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
				(source "AsimCDFSInst:Default_Prefs/Pioneer_Pool")
				(dest "ENVArc:AsimCDFS")
				(newname #CDDevice_NC)
				(help "\n\nThis will copy over a default preferences file.")
				(confirm)
			)
		)		
	))
	
	
	(if (not #isPioneer)
		(copyfiles
			(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
			(source "AsimCDFSInst:Default_Prefs/Default")
			(dest "ENVArc:AsimCDFS")
			(newname #CDDevice_NC)
			(help "\n\nThis will copy over a default preferences file.")
			(confirm)
		)
	))
)


(if (not #IsAmiga)
	(copyfiles
		(prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
		(source "AsimCDFSInst:Default_Prefs/CDTV")
		(dest "ENVArc:AsimCDFS")
		(newname #CDDevice_NC)
		(help "\n\nThis will copy over a default preferences file.")
		(confirm)
	)
)

(complete 60 )


(set #instTunes
	(askbool
		(prompt "\n\nShould the AsimTunes utility be installed?")
		(help "\n\nThis will copy over the AsimTunes utility "
				"to your AsimTunes: directory\n\nIf you do not "
				"wish the AsimTunes program to be transferred to your system, "
				"skip this step.\n" )
		(default 1)
	)
)

(if #instTunes 
	((protect "AsimTunes:AsimTunes" "rwed" )
	(protect "AsimTunes:AsimTunes.info" "rwed" )
	(copyfiles
		(prompt "\n\nCopying AsimTunes CDAudio controller program to the "
				  "AsimTunes: directory.\n" )
		(source "AsimCDFSInst:AsimTunes")
		(dest "AsimTunes:")
		(infos)
		(help "\n\nThis will copy over the AsimTunes CDAudio controller "
				"program to your AsimTunes: directory\n\nIf you do not "
				"wish the AsimTunes program to be transferred to your system, "
				"skip this step.\n" )
		(confirm)
	)
	
	(tooltype
		(dest "AsimTunes:AsimTunes" )
		(settooltype "CDROM" #CDDevice )
		(noposition)
	)
		
		
	(complete 70 )
	(protect "fonts:AsimTunes2" "rwed" )
	(protect "fonts:AsimTunes2.font" "rwed" )
	(protect "fonts:AsimTunes2/11" "rwed" )
	(protect "fonts:AsimTunes2/20" "rwed" )
	(copyfiles
		(prompt "\n\nCopying AsimTunes fonts to the FONTS: directory\n" )
		(source "AsimCDFSInst:fonts")
		(dest "fonts:" )
		(all)
		(help "\n\nThis will copy over the fonts needed for AsimTunes.\n\n"
				"They will be placed into your fonts: directory.\n\n" )
		(confirm) )
))





(complete 80 )

(set #instChanger
	(askbool
		(prompt "\n\nShould the DiscChanger utility be installed?")
		(help "\n\nThis will copy over the DiscChanger utility "
				"to your AsimTunes: directory\n\nIf you do not "
				"wish the DiscChanger program to be transferred to your system, "
				"skip this step.\n" )
		(default 1)
	)
)

(complete 85 )
(if #instChanger
	((protect "AsimTunes:DiscChanger" "rwed" )
	(copyfiles
		(prompt "\n\nCopying the DiscChanger utility to the AsimTunes: "
				  "directory.\n" )
		(source "AsimCDFSInst:DiscChanger")
		(dest "AsimTunes:")
		(infos)
		(help "\n\nThis will copy over the DiscChanger utility "
				"program to your AsimTunes: directory\n\nIf you do not "
				"wish the DiscChanger program to be transferred to your system, "
				"skip this step.\n" )
		(confirm)
	)
	
	(tooltype
		(dest "AsimTunes:DiscChanger" )
		(settooltype "CDROM" #CDDevice )
		(noposition)
	)
))





(complete 80 )

(set #instPrefs
	(askbool
		(prompt "\n\nShould the AsimCDFS_Prefs utility be installed?")
		(help "\n\nThis will copy over the AsimCDFS_Prefs utility "
				"to your AsimTunes: directory\n\nIf you do not "
				"wish the AsimCDFS_Prefs program to be transferred to your system, "
				"skip this step.\n" )
		(default 1)
	)
)

(complete 85 )
(if #instPrefs
	((protect "AsimTunes:AsimCDFS_Prefs" "rwed" )
	(copyfiles
		(prompt "\n\nCopying the AsimCDFS_Prefs utility to the AsimTunes: "
				  "directory.\n" )
		(source "AsimCDFSInst:AsimCDFS_Prefs")
		(dest "AsimTunes:")
		(infos)
		(help "\n\nThis will copy over the AsimCDFS_Prefs utility "
				"program to your AsimTunes: directory\n\nIf you do not "
				"wish the AsimCDFS_Prefs program to be transferred to your system, "
				"skip this step.\n" )
		(confirm)
	)
))




(complete 80 )

(set #instPhoto
	(askbool
		(prompt "\n\nShould the AsimPhoto utility be installed?")
		(help "\n\nThis will copy over the AsimPhoto utility "
				"to your AsimTunes: directory\n\nIf you do not "
				"wish the AsimPhoto program to be transferred to your system, "
				"skip this step.\n" )
		(default 1)
	)
)

(complete 85 )
(if #instPhoto
	((protect "AsimTunes:AsimPhoto" "rwed" )
	(copyfiles
		(prompt "\n\nCopying the AsimPhoto utility to the AsimTunes: "
				  "directory.\n" )
		(source "AsimCDFSInst:AsimPhoto")
		(dest "AsimTunes:")
		(infos)
		(help "\n\nThis will copy over the AsimPhoto utility "
				"program to your AsimTunes: directory\n\nIf you do not "
				"wish the AsimPhoto program to be transferred to your system, "
				"skip this step.\n" )
		(confirm)
	)

	(copyfiles
		(prompt "\n\nCopying the asimphoto.library file to the libs: "
				  "directory.\n" )
		(source "AsimCDFSInst:libs/asimphoto.library")
		(dest "libs:")
		(help "\n\nThis will copy over the asimphoto.library utility "
				"program to your libs: directory\n\nIf you do not "
				"wish the AsimPhoto program to be transferred to your system, "
				"skip this step.\n" )
		(confirm)
	)
))





(makedir "ENVARC:AsimCDFS"
	(prompt "Making the ENVARC:AsimCDFS directory, in which various default files will be placed.")
	(help "This will create a directory in your ENVARC: directory")
	)


(makedir "ENV:AsimCDFS"
	(prompt "Making the ENV:AsimCDFS directory, in which various default files will be placed.")
	(help "This will create a directory in your ENV: directory")
	)


(copyfiles
	(prompt "\n\nCopying default icons to the ENVARC:AsimCDFS "
			  "directory.\n" )
	(source "AsimCDFSInst:ENVArc/AsimCDFS")
	(dest "ENVArc:AsimCDFS")
	(infos)
	(all)
	(help "\n\nThis will copy over default icon files to the ENVArc:AsimCDFS directory.")
	(confirm)
)


(complete 100 )

(makeassign "AsimCDFSInst")