;SFS Remove Script

FailAt 21
echo "This script will remove SFS related features from the popup"
echo "menus, returning them to their default state."
echo ""
ask "Would you like to remove SFS support?"
IF NOT WARN
SKIP FAIL
ELSE
IF NOT EXISTS SYS:System/BMenu/Menus/SFS
SKIP ERROR
ELSE
copy ENVARC:Scalos/Menu.prefs SFSMenu/Menu.Prefs CLONE
copy FFSMenu/Menu.prefs ENV:Scalos/Menu.prefs CLONE
copy FFSMenu/Menu.prefs ENVARC:Scalos/Menu.prefs CLONE
copy SYS:System/BMenu/Disk SFSMenu/Disk CLONE
copy SYS:System/BMenu/Menus/SFS SFSMenu/SFS CLONE
copy SYS:System/BMenu/Menus/SFS.info SFSMenu/SFS.info CLONE
copy FFSMenu/Disk SYS:System/BMenu/Disk CLONE
delete >NIL: SYS:System/BMenu/Menus/SFS
delete >NIL: SYS:System/BMenu/Menus/SFS.info
ENDIF
ENDIF
echo ""
echo "SFS support removed!"
endshell
LAB ERROR
echo ""
echo "ERROR - SFS support is already removed!"
endshell
LAB FAIL
echo ""
echo "SFS support has NOT been removed"