.K ""
echo "This script will unpack the following lharc archives:"
echo ""
echo "	HCC.lzh		=>	HCC:"
echo ""
echo "  HCC-Source.lzh	=>	HCC-Source:	(Only if you want)"
echo ""
ask "Do you have a blank disk ready?"
if not WARN
	echo "Try again when you do ..."
	echo "All Done.  Click close gadget to get rid of window."
	endcli
endif

ask "Is floppy drive df1: free?"
if not WARN
	echo "You will need to do the unpacking yourself."
	echo "All Done.  Click close gadget to get rid of window."
	endcli
endif

echo "Formatting and unpacking disk HCC:"

sys:system/format drive df1: name HCC noicons
:c/lharc -x -a -m x HCC.lzh HCC:

ask "Do you want the source code AND have another blank disk?"
if not WARN
	echo "Read the file HCC:Docs/Installation how to continue."
	echo "All Done.  Click close gadget to get rid of window."
	endcli
endif

echo "Formatting and unpacking disk HCC-Source:"

sys:system/format drive df1: name HCC-Source noicons
:c/lharc -x -a -m x HCC-Source.lzh HCC-Source:

echo "Read the file HCC:Docs/Installation how to continue."
echo "All Done.  Click close gadget to get rid of window."
endcli
