.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 - 60):  " 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 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
;