home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / EDG-H&OF.DMS / in.adf / Install-Forms < prev    next >
Encoding:
Text File  |  1995-08-04  |  1.5 KB  |  56 lines
  1. ;HOME&OFFICE FORMS INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. ;GET DEST AND CREATE DIRECTORY
  5. (set TEMdest
  6.     (askdir
  7.         (prompt
  8.             "Select the directory in which you would like the Home&OfficeForms drawer created. You need to have at least 615K of free hard drive space to install Home & Office Forms.")
  9.         (help
  10.             "A drawer named Home&OfficeForms will be created here to store the forms.\n\n")
  11.         (default @default-dest)
  12.     )
  13. )
  14.  
  15. ;CREATE DRAWER
  16. (set TEMdest (tackon TEMdest "Home&OfficeForms"))
  17. (if (<> (exists TEMdest) 2) (makedir TEMdest (infos)))
  18.  
  19. ;Make an assign to use
  20. (makeassign "DirTem" (safe))
  21. (makeassign "DirTem" TEMdest (safe))
  22.  
  23. ;We now have a valid destination, so tell Installer so the exit page will be correct
  24. (set @default-dest TEMdest)
  25.  
  26. ;DOES THE MACROS DIRECTORY EXIST?
  27. (if (<> (exists "PageStream3:Macros") 2)
  28.     (makedir "PageStream3:Macros" (infos))
  29. )
  30.  
  31.  
  32.  
  33. ;COPY LHEX TO RAM:
  34. (copyfiles (source "Home&OfficeForms:lhex") (dest "ram:") (nogauge))
  35.  
  36. ;INSTALL FORMS
  37. (copyfiles (source "Home&OfficeForms:FORMS.LHA") (dest "ram:"))
  38. (complete 40)
  39. (working "Decompressing Forms...\n\n\n")
  40. (run "ram:lhex >NIL: <NIL: -qfw=DirTem: x ram:FORMS.LHA")
  41. (complete 95)
  42. (delete "ram:FORMS.LHA" (safe))
  43. (copyfiles (source "Home&OfficeForms:ConvertA4.rexx") (dest "PageStream3:Macros"))
  44. (complete 100)
  45.  
  46.  
  47. ;* CLEAN UP *
  48.  
  49. ;REMOVE THE LHARC PROGRAM
  50. (delete "ram:lhex" (safe))
  51.  
  52. ;DONE WITH THE INSTALL
  53. (makeassign "DirTem" (safe))
  54.  
  55. (exit "\n\nYou are now ready to use the Home & Office Forms with PageStream3.")
  56.