.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 (61 - 90):  " NOLINE
failat 20
skip >NIL: ?
lab 61
  set num "061"
  skip MAKEM 
;
lab 62
  set num "062"
  skip MAKEM 
;
lab 63
  set num "063"
  skip MAKEM 
;
lab 64
  set num "064"
  skip MAKEM 
;
lab 65
  set num "065"
  skip MAKEM 
;
lab 66
  set num "066"
  skip MAKEM 
;
lab 67
  set num "067"
  skip MAKEM 
;
lab 68
  set num "068"
  skip MAKEM 
;
lab 69
  set num "069"
  skip MAKEM 
;
lab 70
  set num "070"
  skip MAKEM 
;
lab 71
  set num "071"
  skip MAKEM 
;
lab 72
  set num "072"
  skip MAKEM 
;
lab 73
  set num "073"
  skip MAKEM 
;
lab 74
  set num "074"
  skip MAKEM 
;
lab 75
  set num "075"
  skip MAKEM 
;
lab 76
  set num "076"
  skip MAKEM 
;
lab 77
  set num "077"
  skip MAKEM 
;
lab 78
  set num "078"
  skip MAKEM 
;
lab 79
  set num "079"
  skip MAKEM 
;
lab 80
  set num "080"
  skip MAKEM 
;
lab 81
  set num "081"
  skip MAKEM 
;
lab 82
  set num "082"
  skip MAKEM 
;
lab 83
  set num "083"
  skip MAKEM 
;
lab 84
  set num "084"
  skip MAKEM 
;
lab 85
  set num "085"
  skip MAKEM 
;
lab 86
  set num "086"
  skip MAKEM 
;
lab 87
  set num "087"
  skip MAKEM 
;
lab 88
  set num "088"
  skip MAKEM 
;
lab 89
  set num "089"
  skip MAKEM 
;
lab 90
  set num "090"
  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
;