;SFS Install script

FailAt 21
echo "This script will add new tools, utilities and help files"
echo "to the popup menus, making the ClassicWB SFS friendly."
echo ""
ask "Would you like to install SFS support?"
IF NOT WARN
SKIP FAIL
ELSE
IF EXISTS SYS:System/BMenu/Menus/SFS
SKIP ERROR
ELSE
copy ENVARC:Scalos/Menu.prefs FFSMenu/Menu.Prefs CLONE
copy SFSMenu/Menu.prefs ENV:Scalos/Menu.prefs CLONE
copy SFSMenu/Menu.prefs ENVARC:Scalos/Menu.prefs CLONE
copy SYS:System/BMenu/Disk FFSMenu/Disk CLONE
copy SFSMenu/Disk SYS:System/BMenu/Disk CLONE
copy SFSMenu/SFS SYS:System/BMenu/Menus/SFS CLONE
copy SFSMenu/SFS.info SYS:System/BMenu/Menus/SFS.info CLONE
ENDIF
ENDIF
echo ""
echo "SFS support installed!"
endshell
LAB ERROR
echo ""
echo "ERROR - SFS support is already installed!"
endshell
LAB FAIL
echo ""
echo "SFS support has NOT been installed"