head     40.10;
branch   ;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


40.10
date     93.07.26.15.38.40;  author Unknown;  state Exp;
branches ;
next     40.9;

40.9
date     93.05.14.11.05.02;  author eric;  state Exp;
branches ;
next     40.8;

40.8
date     93.05.14.10.40.34;  author eric;  state Exp;
branches ;
next     40.7;

40.7
date     93.03.09.15.10.36;  author vertex;  state Exp;
branches ;
next     40.6;

40.6
date     93.03.09.15.00.50;  author vertex;  state Exp;
branches ;
next     40.5;

40.5
date     93.03.09.13.50.14;  author vertex;  state Exp;
branches ;
next     40.4;

40.4
date     93.03.09.12.04.24;  author vertex;  state Exp;
branches ;
next     40.3;

40.3
date     93.03.09.11.56.56;  author vertex;  state Exp;
branches ;
next     40.2;

40.2
date     93.03.09.11.48.33;  author vertex;  state Exp;
branches ;
next     40.1;

40.1
date     93.03.09.11.30.26;  author vertex;  state Exp;
branches ;
next     ;


desc
@1942 setup script, updates certain system files from V39 to V40

@


40.10
log
@Updated script to copy to DEVS:Monitors, SYS:Storage/Monitors, or Storage3.0:Monitors (in sequence)
@
text
@.key ""
.bra {
.ket }

; $Date: 93/05/14 11:05:02 $ $Revision: 40.9 $
; 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
@


40.9
log
@Tweaked 1940 references.
@
text
@d5 1
a5 1
; $Date: 93/05/14 10:40:34 $ $Revision: 40.8 $
d22 5
a26 1
      Copy 1942Setup:Monitors/Euro36 SYS:Storage/Monitors
d33 7
a39 2
      Copy 1942Setup:Monitors/Euro72 SYS:Storage/Monitors
      Copy 1942Setup:Monitors/Euro72.info SYS:Storage/Monitors
d45 5
a49 1
      Copy 1942Setup:Monitors/Multiscan SYS:Storage/Monitors
d55 5
a59 1
      Copy 1942Setup:Monitors/NTSC SYS:Storage/Monitors
d65 5
a69 1
      Copy 1942Setup:Monitors/PAL SYS:Storage/Monitors
d75 5
a79 1
      Copy 1942Setup:Monitors/DblNTSC SYS:Storage/Monitors
d85 5
a89 1
      Copy 1942Setup:Monitors/DblPAL SYS:Storage/Monitors
d95 5
a99 1
      Copy 1942Setup:Monitors/VGAOnly SYS:Storage/Monitors
@


40.8
log
@Changed many 1942 references to 1942/40 (for 1940 monitor).
@
text
@d5 2
a6 2
; $Date: 93/03/09 15:10:36 $ $Revision: 40.7 $
; 1942/40 setup script, update certain system files from V39 to V40
d15 1
a15 1
  RequestChoice >ENV:1942Setup{$$} "1942/40 Setup Program" "This program updates Release 3 of the*nAmiga operating system to a slightly*nnewer version required to operate*nthe 1942/40 monitor.*n*nDo you wish to proceed with the update?" "Continue" "Cancel"
@


40.7
log
@*** empty log message ***
@
text
@d5 2
a6 2
; $Date: 93/03/09 15:00:50 $ $Revision: 40.6 $
; 1942 setup script, update certain system files from V39 to V40
d15 1
a15 1
  RequestChoice >ENV:1942Setup{$$} "1942 Setup Program" "This program updates Release 3 of the*nAmiga operating system to a slightly*nnewer version required to operate*nthe 1942 monitor.*n*nDo you wish to proceed with the update?" "Continue" "Cancel"
@


40.6
log
@*** empty log message ***
@
text
@d5 1
a5 1
; $Date: 93/03/09 13:50:14 $ $Revision: 40.5 $
d11 1
a11 1
IF NOT $Workbench EQ "40.4"
@


40.5
log
@*** empty log message ***
@
text
@d1 5
a5 1
; $Date: 93/03/09 12:04:24 $ $Revision: 40.4 $
d11 1
a11 1
IF NOT $Workbench EQ "39.29"
d15 2
a16 2
  RequestChoice >NIL: "1942 Setup Program" "This program updates Release 3 of the*nAmiga operating system to a slightly*nnewer version required to operate*nthe 1942 monitor.*n*nDo you wish to proceed with the update?" "Continue" "Cancel"
  IF $Result2 EQ "1"
d72 2
@


40.4
log
@Added Euro72.info
@
text
@d1 1
a1 1
; $Date: 93/03/09 11:56:56 $ $Revision: 40.3 $
d8 2
a9 1
  RequestChoice >NIL: "1942 Setup Program" "Your system does not have Release 3 of the Amiga operating*nsystem installed. You do not need to run this program." "Continue"
a14 6
    IF EXISTS DEVS:Monitors/A2024
      Copy 1942Setup:Monitors/A2024 DEVS:Monitors
    Else
      Copy 1942Setup:Monitors/A2024 SYS:Storage/Monitors
    EndIf

a26 6
    EndIf

    IF EXISTS DEVS:Monitors/Super72
      Copy 1942Setup:Monitors/Super72 DEVS:Monitors
    Else
      Copy 1942Setup:Monitors/Super72 SYS:Storage/Monitors
@


40.3
log
@*** empty log message ***
@
text
@d1 1
a1 1
; $Date: 93/03/09 11:48:33 $ $Revision: 40.2 $
d28 1
d31 1
@


40.2
log
@*** empty log message ***
@
text
@d1 1
a1 1
; $Date: 93/03/09 11:30:26 $ $Revision: 40.1 $
d77 2
@


40.1
log
@Initial V40 RCS checkin
@
text
@d1 1
a1 1
; $Date: $ $Revision: $
d7 2
a8 3
IF NOT $Workbench EQ "40.4"
  Echo "Your system does not have Release 3 of the Amiga operating"
  Echo "system installed. You do not need to run this program."
@
