.key ""
.bra {
.ket }

; $Date: 93/07/26 15:38:40 $ $Revision: 40.10 $
; 1940/1942 setup script, update certain system files from V39 to V40

FailAt 100

Version >NIL:
IF NOT $Workbench EQ "39.29"
  Echo "Your system does not have Release 3 of the Amiga operating"
  Echo "system installed. You do not need to run this program."
Else
  RequestChoice >ENV:1942Setup{$$} "1940/1942 Setup Program" "This program updates Release 3 of the*nAmiga operating system to a slightly*nnewer version required to operate*nthe 1940/1942 monitor.*n*nDo you wish to proceed with the update?" "Continue" "Cancel"
  IF $1942Setup{$$} EQ "1"
    Resident >NIL: C:COPY PURE

    IF EXISTS DEVS:Monitors/Euro36
      Copy 1942Setup:Monitors/Euro36 DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/Euro36
        Copy 1942Setup:Monitors/Euro36 SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/Euro36 Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/Euro72
      Copy 1942Setup:Monitors/Euro72 DEVS:Monitors
      Copy 1942Setup:Monitors/Euro72.info DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/Euro72
        Copy 1942Setup:Monitors/Euro72 SYS:Storage/Monitors
        Copy 1942Setup:Monitors/Euro72.info SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/Euro72 Storage3.0:Monitors
        Copy 1942Setup:Monitors/Euro72.info Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/Multiscan
      Copy 1942Setup:Monitors/Multiscan DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/Multiscan
        Copy 1942Setup:Monitors/Multiscan SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/Multiscan Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/NTSC
      Copy 1942Setup:Monitors/NTSC DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/NTSC
        Copy 1942Setup:Monitors/NTSC SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/NTSC Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/PAL
      Copy 1942Setup:Monitors/PAL DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/PAL
        Copy 1942Setup:Monitors/PAL SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/PAL Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/DblNTSC
      Copy 1942Setup:Monitors/DblNTSC DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/DblNTSC
        Copy 1942Setup:Monitors/DblNTSC SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/DblNTSC Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/DblPAL
      Copy 1942Setup:Monitors/DblPAL DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/DblPAL
        Copy 1942Setup:Monitors/DblPAL SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/DblPAL Storage3.0:Monitors
      EndIf
    EndIf

    IF EXISTS DEVS:Monitors/VGAOnly
      Copy 1942Setup:Monitors/VGAOnly DEVS:Monitors
    Else
      IF EXISTS SYS:Storage/Monitors/VGAOnly
        Copy 1942Setup:Monitors/VGAOnly SYS:Storage/Monitors
      ELSE
        Copy 1942Setup:Monitors/VGAOnly Storage3.0:Monitors
      EndIf
    EndIf

    Copy 1942Setup:Prefs/Overscan SYS:Prefs/Overscan
    Copy 1942Setup:C/SetPatch C:
    Copy 1942Setup:C/IPrefs C:

    Delete ENV:1942Setup{$$} QUIET

    RequestChoice >NIL: "1942 Setup Program" "Update complete. Reboot your system for changes to take effect." "Continue"
  EndIF
EndIF
