home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a4.lzx / DataChrome.Install < prev    next >
Text File  |  1996-09-14  |  978b  |  29 lines
  1. ; $VER: DataChrome.install 1.0 (10.02.95) by Ed
  2. ;; $Filename: $
  3. ;; $Id: HDInstall,v 1.0 1995/5/4 $
  4. ;; $Date 1995/5/4 $
  5. ;; $Revision 1.0 $
  6. (set is_update 0)
  7. (set @user-level 1)
  8. (complete 0)
  9. (COPYFILES (SOURCE "DataChrome:S/DataChrome.Prefs") (DEST "S:"))
  10. (COPYFILES (SOURCE "DataChrome:C/DataChrome") (DEST "C:"))
  11. (SET name "Choose Directory To Install DataChrome To")
  12. (SET namehelp "This allows you to place the DataChrome icon into any drawer you require")
  13. (SET destdr (ASKDIR (PROMPT name) (DEFAULT @default-dest) (HELP namehelp)))
  14. (IF (NOT (EXISTS destdr)) (EXIT))
  15. (SET data-dest destdr)
  16. (MAKEDIR (tackon data-dest "DataChrome"))
  17. (SET data-dest (tackon data-dest "DataChrome"))
  18. (FOREACH "DataChrome:DataChrome/" "#?"
  19. (
  20.  (COPYFILES (SOURCE (TACKON "DataChrome:DataChrome/" @each-name)) (DEST data-dest))
  21.  )
  22. )
  23. (COPYFILES (SOURCE "DataChrome:DataChrome.info") (DEST destdr))
  24. (set @default-dest data-dest)
  25. (SET done "DataChrome has been \nsuccessfully installed!")
  26. (EXIT done)
  27.  
  28.  
  29.