home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / ORS-AMAX.LHA / a-maxiv / A-MaxInstall < prev    next >
Encoding:
Text File  |  1994-06-02  |  2.7 KB  |  91 lines
  1. ; A-Max Install Script
  2. ; SD 23-Aug-93
  3. ; Copyright 1993 S.M.Douglas.
  4.  
  5.  
  6. (set sourcedisk "A-MaxIV:")
  7.  
  8.  
  9. (set destdir (askdir (prompt "Where would like A-Max Version 4.0 installed?\n")
  10.                     (help @askdir-help)
  11.                     (default (getassign "SYS"))))
  12.  
  13. (copyfiles (source (tackon sourcedisk "A-MaxIV")) 
  14.          (dest destdir)
  15.          (pattern "(A-MaxStartup|A-MaxDiskTransfer|ReadMe)#?")
  16.          (infos)
  17.          (prompt "Installing Startup program\n") 
  18.          (help "A-MaxStartup      - Starts the A-Max software and hardware.\n"
  19.                "                    Contains Preferences options for A-Max.\n"
  20.                "A-MaxDiskTransfer - Reads and creates 800K disks with the\n"
  21.                "                    Plus card.\n"
  22.                "ReadMe            - Changes and updates to the User's Guide.\n\n"
  23.                @copyfiles-help))
  24.  
  25.     (tooltype
  26.         (dest destdir)
  27. ;        (noposition)
  28. )
  29.  
  30. (set devdir (askdir (prompt "Where is your usual system DEVS: directory?\n")
  31.                     (help @askdir-help)
  32.                     (default (getassign "DEVS"))))
  33.  
  34. (copyfiles (source (tackon sourcedisk "DEVS/A-MaxVCtrls")) 
  35.          (dest (tackon devdir "A-MaxVCtrls"))
  36.          (pattern "#?")
  37.          (infos)
  38.          (prompt "Installing A-Max Video Controller Drivers\n") 
  39.          (help "An A-Max specific driver is required for third party\n"
  40.                "video boards.\n\n"
  41.                @copyfiles-help))
  42.  
  43. (copyfiles (source (tackon sourcedisk "DEVS/A-MaxFileDevices")) 
  44.          (dest (tackon devdir "A-MaxFileDevices"))
  45.          (pattern "#?")
  46.          (infos)
  47.          (prompt "Installing A-Max Utilities\n") 
  48.          (help "A-Max Utilities are supplied as a File Device which\n"
  49.                "will be mounted by A-MaxStartup.\n\n"
  50.                @copyfiles-help))
  51.  
  52. (copyfiles (source (tackon sourcedisk "A-MaxIV")) 
  53.          (dest (tackon devdir "/c"))
  54.          (pattern "A-MaxInit")
  55.          (infos)
  56.          (prompt "Installing A-MaxInit\n") 
  57.          (help "A-MaxInit is required in your s:Startup-Sequence\n"
  58.                "to run A-Max.\n\n"
  59.                @copyfiles-help))
  60.  
  61. (run (cat
  62.        "c:copy \""
  63.        (tackon devdir "/S/Startup-Sequence")
  64.        "\" \"" 
  65.        (tackon devdir "/S/Startup-Sequence.B4A-MaxInit") 
  66.        "\"")
  67.             (prompt "Making backup copy of s:Startup-Sequence" )
  68.   )
  69.  
  70. ;only backup once
  71. (run (cat
  72.     "c:protect \""
  73.     (tackon devdir "/S/Startup-Sequence.B4A-MaxInit") 
  74.     "\" -d"))
  75.  
  76. (run (cat
  77.        "c:join \"" 
  78.        (tackon sourcedisk "A-MaxIV/SeqFrag")
  79.        "\" \"" 
  80.        (tackon devdir "/S/Startup-Sequence.B4A-MaxInit") 
  81.        "\" to \""
  82.        (tackon devdir "/S/Startup-Sequence") 
  83.        "\"")
  84.  
  85.             (prompt "Altering s:Startup-Sequence" )
  86.   )
  87.  
  88.  
  89.  
  90. (set @default-dest destdir)
  91.