.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 (1 - 30):  " NOLINE
failat 20
skip >NIL: ?
lab  1
  set num "001"
  skip MAKEM 
;
lab  2
  set num "002"
  skip MAKEM 
;
lab  3
  set num "003"
  skip MAKEM 
;
lab  4
  set num "004"
  skip MAKEM 
;
lab  5
  set num "005"
  skip MAKEM 
;
lab  6
  set num "006"
  skip MAKEM 
;
lab  7
  set num "007"
  skip MAKEM 
;
lab  8
  set num "008"
  skip MAKEM 
;
lab  9
  set num "009"
  skip MAKEM 
;
lab 10
  set num "010"
  skip MAKEM 
;
lab 11
  set num "011"
  skip MAKEM 
;
lab 12
  set num "012"
  skip MAKEM 
;
lab 13
  set num "013"
  skip MAKEM 
;
lab 14
  set num "014"
  skip MAKEM 
;
lab 15
  set num "015"
  skip MAKEM 
;
lab 16
  set num "016"
  skip MAKEM 
;
lab 17
  set num "017"
  skip MAKEM 
;
lab 18
  set num "018"
  skip MAKEM 
;
lab 19
  set num "019"
  skip MAKEM 
;
lab 20
  set num "020"
  skip MAKEM 
;
lab 21
  set num "021"
  skip MAKEM 
;
lab 22
  set num "022"
  skip MAKEM 
;
lab 23
  set num "023"
  skip MAKEM 
;
lab 24
  set num "024"
  skip MAKEM 
;
lab 25
  set num "025"
  skip MAKEM 
;
lab 26
  set num "026"
  skip MAKEM 
;
lab 27
  set num "027"
  skip MAKEM 
;
lab 28
  set num "028"
  skip MAKEM 
;
lab 29
  set num "029"
  skip MAKEM 
;
lab 30
  set num "030"
  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
;