home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / anims / beach617.lha / UnPackDisk < prev    next >
Text File  |  1992-03-10  |  876b  |  41 lines
  1. .K ""
  2. echo "This script will unpack the following lha archives:"
  3. echo ""
  4. echo "  flipdisk1.lha =>    flipdisk1:"
  5. echo ""
  6.  
  7. ask "Do you have a blank disk ready?"
  8. if not WARN
  9.     echo "Try again when you do ..."
  10.     echo "All Done.  Click close gadget to get rid of window."
  11.     endcli
  12. endif
  13.  
  14. ask "Is floppy drive df1: free?"
  15. if not WARN
  16.     echo "You will need to do the unpacking yourself."
  17.     echo "All Done.  Click close gadget to get rid of window."
  18.     endcli
  19. endif
  20.  
  21. echo "Formatting and unpacking disk."
  22.  
  23. sys:system/format drive df1: name Flipdisk1 noicons
  24. :c/lha -x -a -m x Flipdisk1.lha Flipdisk1:
  25.  
  26. echo "Making the first disk bootable."
  27. c:install df1:
  28.  
  29. makedir Flipdisk1:libs
  30.  
  31. if exists libs:icon.library
  32.     copy libs:icon.library df1:libs
  33. endif
  34.  
  35. if exists libs:mathtrans.library
  36.     copy libs:mathtrans.library df1:libs
  37. endif
  38.  
  39. echo "All Done.  Click close gadget to get rid of window."
  40. endcli
  41.