home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / printer / miserprint / install next >
Text File  |  1995-02-27  |  830b  |  38 lines
  1. ; MiserPrint V1.0 Installation
  2. ; (c) 1993 Heinz-Guenter Boettger
  3.  
  4. (set #target-prompt
  5. (cat " 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. (copyfiles
  21.     (prompt "Copying MiserPrint...")
  22.     (source "")
  23.     (dest target)
  24.     (pattern "MiserPrint")
  25.     (files)
  26.     (infos)
  27. )
  28.  
  29. (if (not (exists "envarc:MiserPrint")) (
  30.      (makedir "envarc:MiserPrint")
  31. ))
  32.  
  33. (copyfiles
  34.     (source  "envarc/MiserPrint")
  35.     (dest    "envarc:MiserPrint")
  36.     (all)
  37. )
  38.