.K ""
echo "This script will use the following archives to recreate the"
echo "original TPP400EN distribution disk:"
echo ""
echo "  TPP400EN.lha =>	TPP400EN:"
echo "  Common.lha   => TPP400EN:"
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

sys:system/format drive df1: name TPP400EN noicons

echo "Unpacking TPP400EN.lha ..."
:c/lha -x -a -m x TPP400EN.lha TPP400EN:

echo "Unpacking Common.lha ..."
:c/lha -x -a -m x Common.lha TPP400EN:

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