home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / misc / edu / VerbeP12.lha / Install_Patch next >
Text File  |  1995-12-14  |  628b  |  27 lines
  1. ; Installer script for Ensemble Verbes patch
  2. ; $VER: Install_Patch 1.0 (28.3.95)
  3.  
  4. (set newdest
  5.     (askdir
  6.         (prompt "Select the directory where \"Ensemble Verbes\" was installed")
  7.         (default @default-dest)
  8.         (help "You must tell the installer where \"Ensemble Verbes\" is located.")
  9.         (newpath)
  10.     )
  11. )
  12.  
  13. (set oldfile (tackon newdest "Verbes"))
  14.  
  15. (if
  16.     (exists oldfile)
  17.     (
  18.         (working "Patching Ensemble Verbes to V1.2")
  19.         ; Create new file in T:
  20.         (run (cat "spatch -oT:Verbes -pVerbes.pch " oldfile))
  21.         ; Copy new file over old file
  22.         (copyfiles (source "T:Verbes") (dest oldfile))
  23.         ; Remove temporary file
  24.         (delete "t:Verbes")
  25.     )
  26. )
  27.