home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / text / print / miserprint / install < prev    next >
Text File  |  1994-12-27  |  1KB  |  65 lines
  1. ; MiserPrint V1.0 Installation
  2. ; (c) 1993 Heinz-Guenter Boettger
  3.  
  4. (set #target-prompt
  5. (cat "\n Where do you want to copy MiserPrint? \n"))
  6.  
  7. (set #target-help
  8. (cat "                                                   \n"
  9.      " Select the directory, where you want to copy the  \n"
  10.      " main program and its icon.                        \n"
  11.      "                                                   \n"
  12. ))
  13. (set target (askdir 
  14.     (prompt  #target-prompt)
  15.     (help    #target-help)
  16.     (default "SYS:UTILITIES")
  17. ))
  18. (set @default-dest target)
  19.  
  20. (set #replace-prompt
  21. (cat "\n Replace my old preferences? \n"))
  22.  
  23. (set #replace-help
  24. (cat "                                                   \n"
  25.      " Select 'Yes' to replace my old preferences files. \n"
  26.      "                                                   \n"
  27. ))
  28.  
  29. (copyfiles
  30.     (prompt "Copying MiserPrint...")
  31.     (source "")
  32.     (dest target)
  33.     (pattern "MiserPrint")
  34.     (files)
  35.     (infos)
  36. )
  37.  
  38. (if (not (exists "envarc:MiserPrint")) 
  39. (
  40.    (makedir "envarc:MiserPrint")
  41.    (copyfiles
  42.         (prompt "Copying MiserPrint Preferences...")
  43.         (source "envarc/MiserPrint")
  44.         (dest   "envarc:MiserPrint")
  45.         (all)
  46.    )
  47. )
  48. ; else
  49. (
  50.     (if (askbool 
  51.             (prompt #replace-prompt)
  52.             (help   #replace-help)
  53.         )
  54.         (copyfiles
  55.             (prompt "Copying MiserPrint Preferences...")
  56.             (source "envarc/MiserPrint")
  57.             (dest   "envarc:MiserPrint")
  58.             (all)
  59.         )
  60.     )
  61.         
  62. )
  63. )
  64.  
  65.