.K ""
echo "This script will unpack the following lha archives:"
echo ""
echo "  flipdisk1.lha =>	flipdisk1:"
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."

sys:system/format drive df1: name Flipdisk1 noicons
:c/lha -x -a -m x Flipdisk1.lha Flipdisk1:

echo "Making the first disk bootable."
c:install df1:

makedir Flipdisk1:libs

if exists libs:icon.library
	copy libs:icon.library df1:libs
endif

if exists libs:mathtrans.library
	copy libs:mathtrans.library df1:libs
endif

echo "All Done.  Click close gadget to get rid of window."
endcli
