.Key  ""

lab GETDRIVE
echo ""
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 two blank unformatted floppy disks ready?"
if not WARN
	echo ""
	echo "  Try again when you do ..."
	echo "  All Done.  Click close gadget to get rid of window."
	endcli
endif

echo ""
sys:system/format drive $drive name PM_1 NOICONS
lha -ab64 x PlotMap.lha PM_1:
copy PlotMap.Doc PM_1:
copy PlotMap.Doc.info PM_1:
lha -ab64 x Maps.lha map.limits.bin coast.pnt island.pnt PM_1:
  
echo ""
echo ""
echo " Insert the second blank disk in drive $drive"
echo ""
sys:system/format drive $drive name PM_DATA  NOICONS
lha -ab64 x Maps.lha country.pnt state.pnt river.pnt lake.pnt PM_DATA:

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


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