home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / fish / 811-820 / ff816 / revenge / unpackdisk2 < prev    next >
Text File  |  1993-02-15  |  986b  |  58 lines
  1. .Key  ""
  2. set src1  "C&H02.lha"
  3. set dst  "C&H02"
  4.  
  5. echo ""
  6. echo "  This script will unpack the following lha archives:"
  7. echo ""
  8. echo "  $src1 => $dst"
  9. echo ""
  10.  
  11. lab GETDRIVE
  12. echo "  Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
  13. failat 20
  14. skip >NIL: ? 
  15.  
  16. lab 0
  17.   set drive "DF0:"
  18.   skip HAVEDRIVE
  19. ;
  20. lab 1
  21.   set drive "DF1:"
  22.   skip HAVEDRIVE
  23. ;
  24. lab 2
  25.   set drive "DF2:"
  26.   skip HAVEDRIVE
  27. ;
  28. lab 3
  29.   set drive "DF3:"
  30.   skip HAVEDRIVE
  31. ;
  32.  
  33. lab HAVEDRIVE
  34. ask "  Do you have a blank unformatted disk in drive $drive?"
  35. if not WARN
  36.     echo ""
  37.     echo "  Try again when you do ..."
  38.     echo "  All Done.  Click close gadget to get rid of window."
  39.     endcli
  40. endif
  41.  
  42. echo ""
  43. echo "  ==> sys:system/format drive $drive name $dst NOICONS"
  44. sys:system/format drive $drive name $dst NOICONS
  45. echo "  ==> :c/lha -axm x $src1 $dst:"
  46. :c/lha -axm x $src1 $dst:
  47.  
  48. echo "  All Done.  Click close gadget to get rid of window."
  49. endcli
  50.  
  51. endskip
  52. echo "  Invalid Drive Selection, Please try again!"
  53. skip back GETDRIVE
  54.  
  55.  
  56.  
  57.  
  58.