; PhonePak VFX/GVPPatch Installation Script
; Version 1.04
; By Russel Miranda - 20 Aug 1992
; modified for IOExtender ECQ 24aug92
; modified for a2000 040 ecq 24aug92

; Written for use with Commodore's Installer.

(set IOX "GVP.Install:")

; ====================
; Make sure the user really wants to install this patch...
;

(message "This installation should only be performed if you are experiencing "
         "character loss during high speed serial transfers."
         "with the A2000 68040r Serial port.\n\n")

(if (askbool (prompt "Do you understand, and wish to proceed with the "
                     "installation of the GVPPatch program?")
             (help "Please read the GVPPatch.Readme file supplied for more "
                   "information.")
             (choices "Yes" "No"))
    (
      (copyfiles (source (tackon IOX "GVP/GVPPatch/GVPPatch"))
                 (dest "C:"))
      (startup "c/GVPPatch"
               (prompt "Is it OK to modify your startup to run the GVPPatch "
                       "program when you boot?")
               (help "For this program to be useful, it should be run in your "
                     "User-Startup or Startup-Sequence.\n\n"
                     @startup-help)
               (command ("Run >NIL: GVPPatch -sgvpser.device")))
    )
    (
      (message "Aborting installation of the GVPPatch program.")
      (exit (quiet))
    )
)

; Set up the default dest so the user isn't confused.
(set @default-dest "C:")