.Key  ""
lab TOP
echo " "
echo " This script will allow you to create AmigaLibDisks from the"
echo " compressed files in this folder. These files have been "
echo " archived to allow the entire collection to reside on a "
echo " single CD ROM."
echo " "
echo "  You may type Q at most prompts to abort this operation."
echo " "
echo " Enter number of the AmigaLibDisk you wish to make (31 - 60):  " NOLINE
failat 20
skip >NIL: ?
lab 31
  set num "031"
  skip MAKEM 
;
lab 32
  set num "032"
  skip MAKEM 
;
lab 33
  set num "033"
  skip MAKEM 
;
lab 34
  set num "034"
  skip MAKEM 
;
lab 35
  set num "035"
  skip MAKEM 
;
lab 36
  set num "036"
  skip MAKEM 
;
lab 37
  set num "037"
  skip MAKEM 
;
lab 38
  set num "038"
  skip MAKEM 
;
lab 39
  set num "039"
  skip MAKEM 
;
lab 40
  set num "040"
  skip MAKEM 
;
lab 41
  set num "041"
  skip MAKEM 
;
lab 42
  set num "042"
  skip MAKEM 
;
lab 43
  set num "043"
  skip MAKEM 
;
lab 44
  set num "044"
  skip MAKEM 
;
lab 45
  set num "045"
  skip MAKEM 
;
lab 46
  set num "046"
  skip MAKEM 
;
lab 47
  set num "047"
  skip MAKEM 
;
lab 48
  set num "048"
  skip MAKEM 
;
lab 49
  set num "049"
  skip MAKEM 
;
lab 50
  set num "050"
  skip MAKEM 
;
lab 51
  set num "051"
  skip MAKEM 
;
lab 52
  set num "052"
  skip MAKEM 
;
lab 53
  set num "053"
  skip MAKEM 
;
lab 54
  set num "054"
  skip MAKEM 
;
lab 55
  set num "055"
  skip MAKEM 
;
lab 56
  set num "056"
  skip MAKEM 
;
lab 57
  set num "057"
  skip MAKEM 
;
lab 58
  set num "058"
  skip MAKEM 
;
lab 59
  set num "059"
  skip MAKEM 
;
lab 60
  set num "060"
  skip MAKEM 
;

lab MAKEM
set src1  "FF_$num.lha"
set dst  "AmigaLibDisk_$num"


echo ""
echo "This script will create the following disk (or copy files to RAM):"
echo ""
echo "                          $dst"
echo ""
echo "                Type Q to Abort this operation."
echo ""
lab GETDRIVE
echo "  Which drive do you want to unpack to? [DF0,DF1,RAM]: "  NOLINE
failat 20
skip >NIL: ? 

lab DF0
  set drive "DF0:"
  skip HAVEDRIVE
;
lab DF1
  set drive "DF1:"
  skip HAVEDRIVE
;
lab RAM
  set drive "RAM:"
  skip DORAM
;
lab Q
  skip QUIT
;

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
lab DORAM
echo "  ==> :c/lha -axm x $src1 $drive"
:c/lha -axm x $src1 $drive
lab QUIT
echo ""
echo "  All Done.  Click close gadget to get rid of window."
endcli


endskip
echo ""
echo "  Invalid Disk Numer or Drive Selection, Please try again!"
skip back TOP
;