echo "*EcThis installation script will copy all WITNESS files"
echo "onto your hard disk, in the directory of your choice.*N"

ask "Do you wish to install WITNESS? (Type Y to install):"

if not warn 
	echo "Installation cancelled.*N"
	skip quit
endif

echo "*NType the name of the disk and directory where you wish to"
echo "install WITNESS. For example: *dh0:Games/Arcade*."
echo "A directory called WITNESS will be created."
echo "Enter Path: " NOLINE

failat 21

assign > NIL: witdir: ?
assign > NIL: witdir: exists

if warn
	echo "*NSorry that is not a valid drive, please check the name"
	echo "and run the install again."
	skip quit
endif

cd witdir:
echo "*NCreating directory..."
makedir > NIL: WITNESS

if warn
	echo "That directory already exists."
	ask "Do you wish to install to this directory? (Y to install):"
	if not warn 
		echo "Installation cancelled.*N"
		skip quit
	endif	
endif

copy >NIL: WITNESS:s/witness.info witdir:
assign witdir: witdir:WITNESS
cd witdir:
echo "*NInstalling WITNESS to " NOLINE
cd

copy >NIL: WITNESS:data/#? all witdir:data
copy >NIL: WITNESS:W.I.T.N.E.S.S. witdir:
copy >NIL: WITNESS:W.I.T.N.E.S.S..info witdir:
copy >NIL: WITNESS:witness witdir:
copy >NIL: WITNESS:witness.doc witdir:

echo "*NWITNESS installation finished."

lab quit
assign witdir:
ask " (return to exit)"
endcli