.Key  ""
set src1  "C&H02.lha"
set dst  "C&H02"

echo ""
echo "  This script will unpack the following lha archives:"
echo ""
echo "  $src1 => $dst"
echo ""

lab GETDRIVE
echo "  Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
failat 20
skip >NIL: ? 

lab 0
  set drive "DF0:"
  skip HAVEDRIVE
;
lab 1
  set drive "DF1:"
  skip HAVEDRIVE
;
lab 2
  set drive "DF2:"
  skip HAVEDRIVE
;
lab 3
  set drive "DF3:"
  skip HAVEDRIVE
;

lab HAVEDRIVE
ask "  Do you have a blank unformatted disk in drive $drive?"
if not WARN
	echo ""
	echo "  Try again when you do ..."
	echo "  All Done.  Click close gadget to get rid of window."
	endcli
endif

echo ""
echo "  ==> sys:system/format drive $drive name $dst NOICONS"
sys:system/format drive $drive name $dst NOICONS
echo "  ==> :c/lha -axm x $src1 $dst:"
:c/lha -axm x $src1 $dst:

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

endskip
echo "  Invalid Drive Selection, Please try again!"
skip back GETDRIVE




