home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / sci / PSB_110.lha / psb / PSB_Install < prev    next >
Encoding:
Text File  |  1997-02-24  |  1.3 KB  |  49 lines

  1. ;
  2. ;                       PSB Installation Script
  3. ;                                 by
  4. ;                          Andrea Rafreider
  5. ;
  6.  
  7. (message "\n\nPSB is copyright Steve P.R. Peruzzi 1996\n"
  8.          "\n"
  9.          "Installation script written by Andrea Rafreider\n")
  10.  
  11. (set @default-dest
  12.         (askdir
  13.                 (prompt "\nChoose the directory where you "
  14.                         "want to install PSB.\n"
  15.                         "A drawer named \"PSB\" will be created "
  16.                         "in the directory you choose.\n")
  17.                 (help   "Here you can specify where you want "
  18.                         "to install PSB.\n"
  19.                         "A drawer named \"PSB\" will be created "
  20.                         "in the directory you choose.\n")
  21.                 (default "WORK:")
  22.         )
  23. )
  24.  
  25. (makedir (tackon @default-dest "PSB"))
  26.  
  27. (set @default-dest (tackon @default-dest "PSB"))
  28.  
  29. (copylib
  30.         (source (tackon (pathonly @icon) "PSB"))
  31.         (dest @default-dest)
  32.         (infos)
  33.         
  34. )
  35. (copyfiles
  36.         (source (tackon (pathonly @icon) "PSB.guide"))
  37.         (dest @default-dest)
  38.         (infos)
  39. )
  40. (copyfiles
  41.         (source (tackon (pathonly @icon) "PSB.readme"))
  42.         (dest @default-dest)
  43.         (infos)
  44. )
  45.  
  46. (makedir (tackon @default-dest "data"))
  47.  
  48. (message "\nPSB installation completed!\n")
  49.