;$VER: 3.4 CyberPrefsX (10.15.95)
;******************************************************************************** 
;    ______        __                  ______                     __  __   __
;   / __  /       / /                 / __  /                    / /  \ \ / /
;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
;         /_/                                        / /           
;                                                   /_/           
; CyberPrefsX  1994-1995 by Robert C. Reiswig
; [was: CGraphXPrefs & EnvSettings & ChangeSettings] 
;
;
; This was done for Frank Mariak for use with the
; Commercial release of CyberGraphX from Phase5, Germany
;
; Suggestions or problems: rcr@netcom.com
;--------------------------------------------------------------------------------
;
;********************************************************************************



;******************************************************************************** 
;
; Read All System information 
;
;********************************************************************************
(set lan 1)
(if (= "deutsch" (getenv "Language")) (set lan 0) )

(set CyberDrawer "CyberVision:") (set were "sys")

(if (> (exists ("sys:devs/monitors/Spectrum")) 0)    (set #BGuess 1)  )
(if (> (exists ("sys:devs/monitors/Piccolo")) 0)     (set #BGuess 2)  )
(if (> (exists ("sys:devs/monitors/Domino")) 0)      (set #BGuess 3)  )
(if (> (exists ("sys:devs/monitors/RetinaZ3")) 0)    (set #BGuess 4)  )
(if (> (exists ("sys:devs/monitors/PiccoSD64")) 0)   (set #BGuess 5)  )
(if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
(if (> (exists ("sys:devs/monitors/Picasso")) 0)     (set #BGuess 0)  )
(if (> (exists ("sys:devs/monitors/CyberVision")) 0) (set #BGuess 6)  )
(if (> (exists ("sys:devs/monitors/A2410")) 0)       (set #BGuess 7)  )
(if (> (exists ("sys:devs/monitors/DraCoAltais")) 0) (set #BGuess 8)  )
(if (> (exists ("sys:devs/monitors/Merlin")) 0)      (set #BGuess 9)  )

;******************************************************************************** 
;
; For some reason people seem to loose this directory
;
;********************************************************************************
(if (< (exists "env:cybergraphics") 2) (makedir "env:cybergraphics") ) 
(if (< (exists "envarc:cybergraphics") 2) (makedir "envarc:cybergraphics") ) 

(if (= FrankIsTheKingOfSwing 46) (welcome) )

;******************************************************************************** 
;
;English Information
;
;********************************************************************************

(set #currset "\n\nShould this option be enabled ?")




(set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                  "By setting this variable, the planar-to-chunky conversion "
                  "will be done by the CPU (in contrast to the blitter conversion) "
                  "Therefore the ugly looking "planar" blitting effects are gone, "
                  "but the software conversion is slower. Do you wish to Enable this feature?"
             )
)
  

(set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, the Lores-Sprites on non-AA-machines "
                     "become Hires-sprites (they are no longer doubled by "
                     "the CyberGraphX-Software). "
                     "This variable is identical to the tooltype HIRESSPRITE "
                     "of older Picasso-monitor files."
                )
)
  



(set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, you can switch off 15bit modes to reduce "
                     "screenmode list length. The Modes are still available but hidden."
                )
)

(set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, DisplayAlert(), (The Screens you get when the machine crashes.) " 
                     "will be placed on an CyberGraphX screens."
                )
) 

(set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "By setting this variable, 8 bit deep screens are always opened "
                     "in Fast memory. Useful with 1MB chip systems but you should "
                     "avoid it with 2MB chip, because the older method is more "
                     "compatible (no taglist changes etc.) "
                )
) 






;****** NEW Text July 17, 1995 ********************************
(set #changeenv "Set/Explain/Change Environment Varibles")
(set #changemonitor "Set/Change Default Monitor Setting")
(set #changecv "Set/Change ToolType for CVMode")

(set #askchange "Please Select what option you would like to change.")

(set #askwereisCVMode "Please Select the CVmode program. This way the installer can get the correct path to the 'CVMode' file")
(set #noicon "\n\nThe installer could not find the '.info' file for CVMode.  Please re-copy or install the CVMode Program")
(set #board (cat "\nPlease Select the Graphics Board you have.\n"))

(set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "With this option on, non displayable planar bitmaps "
                     "are allocated in fast memory. This options speeds up "
                     "handling of planar bitmaps but could lead to problem s"
                     "with amiga graphics which insist on planar graphics "
                     "placed in chip memory. Take care when using this option."
                )
) 

(set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                    "If this option is enabled, the monitor switch on every "
                    "CyberGraphX supported board is deactivated. This option is "
                    "required for multi monitor systems."
                )
) 

(set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "If this option is disabled, everytime a CyberGraphX display "
                     "becomes frontscreen, Amiga display DMA is switched off in order "
                     "to increase chipmem access speed. You can avoid this by enabling "
                     "this option. "
                )
) 

(set #board (cat "\nPlease Select the Graphics Board you are using CyberGraphX on:\n"))

(set MonitorIS "A Custom Setting File")

(set #lookslikemonitor (cat "Select the Monitor Setting File You wish to use. "
                            "If you are not sure on what the Max your monitor can handle is, "
                            "quit and look it up in the monitor manual! It looks like it is set to: "
                       )
)

(set #yes "Yes - On")
(set #no "No - Off") 
(set #youwantto "You want to set:")
(set #to "To:")

;****** NEW Text Oct 03, 1995 ********************************
(set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "If this option is disabled (set to 'No - Off'), the CyberGraphX Bootlogo "
                     "will not be shown at boot time."
                )
) 





;******************************************************************************** 
;
;German Information
;
;********************************************************************************
(if (= LAN 0)
(


(set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                  "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
                  "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
                  "Damit sind die teilweise merkwrdig aussehenden "planar" Bliteffekte verschwunden, "
                  "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Mglichkeit aktivieren ?"
             )
)
  

(set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Gerten "
                     "zu Hires-sprites (Sie werden nicht mehr von der CyberGraphX Software "
                     "verdoppelt). "
                     "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
                     "in der alten Picasso software)."
                )
)


(set #hide15bit (cat "HIDE15BIT\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Wenn diese Variable aktiviert ist, werden die 15Bit Modi deaktiviert, um "
                     "die Screenmodeliste zu verkuerzen. Die Modes sind immer noch da, aber nicht sichtbar."
                )
)

(set #alertemu  (cat "ALERTEMU\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Variable aktiviert, wird DisplayAlert(), (Die Routine, die eine Guru-Box erzeugt.) " 
                     "auf einen CyberGraphX Bildschirm umgeleitet."
                )
)
 


(set #nochip    (cat "NOCHIPSCREEN\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Wird diese Option aktiviert, werden CyberGraphX 256-Farben Bildschirme "
                     "immer direkt im FastRAM geffnet. Das ist sinnvoll bei Rechnern mit 1MB "
                     "ChipRAM, sollte aber mit 2MB ChipRAM Systemen vermieden werden, da die "
                     "alte Methode in einigen Punkten kompatibler ist."
                )
) 


(set #EnvAbort (cat "\n\nEnvSettings konnte keine der Einstellungen finden."
                    "\n\nSind Sie ein registrierter User?  Insofern Sie es sind, mssen "
                    "Sie \"CyberGfx_Install\" aufrufen um die Variablen richtig zu setzen."
               )
)

(set #currset "\n\nSoll diese Option aktiv sein ?")


;****** NEW Text July 17, 1995 ********************************
(set #changeenv "Setzen/ndern von Umgebungsvariablen")
(set #changemonitor "Setzen/ndern der Standard Monitor Einstellungen")
(set #changecv "Setzen/ndern des ToolTypes fr CVMode")

(set #askchange "Bitte whlen Sie, welche Einstellungen Sie ndern mchten.")

(set #askwereisCVMode "Bitte whlen Sie das CVmode Programm aus, damit das Installationsprogramm den korrekten Pfad von CVMode herausfinden kann.")
(set #noicon "\n\nDas Installationsprogramm konnte die '.info' Datei fr CVMode nicht finden.  Bitte kopieren oder installieren Sie CVMode erneut.")
(set #board (cat "\nBitte whlen Sie Ihre Grafikkarte aus.\n"))

(set #planes2  (cat "PLANES2FAST\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Option aktiv, werden nicht darzustellende "
                     "planare BitMaps im FastRAM angelegt. Diese Option "
                     "beschleunigt die Bearbeitung von planaren BitMaps aber "
                     "kann zu Problemen mit Amiga Originalgrafik fhren, wenn "
                     "diese davon ausgeht, dass planare BitMaps im ChipRAM liegen. "
                     "Seien Sie vorsichtig mit der Aktivierung dieser Option."
                )
) 

(set #nopass   (cat "NOPASSTHROUGH\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                    "Wenn diese Option aktiviert ist, wird der Monitorumschalter "
                    "auf jeder von CyberGraphX untersttzten Karte deaktiviert. "
                    "Diese Option ist fr Mehr-Monitor Systeme erforderlich. "
                )
) 

(set #keepamiga (cat "KEEPAMIGAVIDEO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Option nicht aktiv, wird jedesmal, wenn "
                     "ein CyberGraphX Bildschirm nach vorne kommt, die Amiga Bildschirm "
                     "DMA abgeschaltet, um den Zugriff auf das ChipMemory zu beschleunigen. "
                     "Dies kann durch Aktivierung der Option vermieden werden. "
                )
) 

(set #board (cat "\nBitte whlen Sie die Grafikkarte aus, die Sie mit CyberGraphX benutzen:\n"))

(set MonitorIS "Eine selbst definierte Einstellungsdatei")

(set #lookslikemonitor (cat "Bitte whlen Sie die Datei aus, die Sie benutzen wollen. "
                            "Wenn Sie sich nicht sicher sind, welche Werte Ihr Monitor verarbeiten kann, "
                            "schauen Sie bitte unverzglich im Handbuch nach! Es sieht so aus, als wenn es eingestellt ist auf: "
                       )
)

(set #yes "Ja")
(set #no "Nein")
(set #youwantto "Sie wollen die nderung von:")
(set #to "auf:")

;****** NEW Text Oct 03, 1995 ********************************
(set #bootlogo  (cat "BOOTLOGO\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                     "Ist diese Option inaktiv (auf 'Nein' gesetzt), wird das CyberGraphX Startlogo "
                     "nicht angezeigt whrend eines Neustarts des Rechners."
                )
) 




)

)



;******************************************************************************** 
;
; Main Part of the Installer  
;
;********************************************************************************


;******************************************************************************** 
; Ask to change the ENvars, Change monitor setting , or change tool type for CV
;********************************************************************************

(set ja (askchoice (choices #changeenv #changemonitor #changecv)
      	   		 (prompt (cat "\n" #askchange "\n"))
                         (help   #askchange)
       	         	 (default 0)
	)
)


(if (= ja 0)
(
;******************************************************************************** 
; Find out whats in the env vars...
;********************************************************************************
(set hires 0)  (set cpup2c 0)  (set hide15bit 0) (set aleartemu 0)
(set nochip 0) (set nopass 0) (set keepamiga 0) (set planes2 0)
(set bootlogo 0)


(if (> (exists ("env:cybergraphics/HIRESCRSR")) 0)
  (if (= 1 (getenv "cybergraphics/HIRESCRSR")) (set hires 1) )
)


(if (> (exists ("env:cybergraphics/CPUP2C")) 0)
  (if (= 1 (getenv "cybergraphics/CPUP2C")) (set cpup2c 1) )
)


(if (> (exists ("env:cybergraphics/HIDE15BIT")) 0)
  (if (= 1 (getenv "cybergraphics/HIDE15BIT")) (set hide15bit 1) )
)


(if (> (exists ("env:cybergraphics/ALERTEMU")) 0)
  (if (= 1 (getenv "cybergraphics/ALERTEMU")) (set alertemu 1) )
)


(if (> (exists ("env:cybergraphics/NOCHIPSCREEN")) 0)
  (if (= 1 (getenv "cybergraphics/NOCHIPSCREEN")) (set nochip 1) )
)


(if (> (exists ("env:cybergraphics/NOPASSTHROUGH")) 0)
  (if (= 1 (getenv "cybergraphics/NOPASSTHROUGH")) (set nopass 1) )
)


(if (> (exists ("env:cybergraphics/KEEPAMIGAVIDEO")) 0)
  (if (= 1 (getenv "cybergraphics/KEEPAMIGAVIDEO")) (set keepamiga 1) )
)


(if (> (exists ("env:cybergraphics/PLANES2FAST")) 0)
  (if (= 1 (getenv "cybergraphics/PLANES2FAST")) (set planes2 1) )
)


(if (> (exists ("env:cybergraphics/BOOTLOGO")) 0)
  (if (= 1 (getenv "cybergraphics/BOOTLOGO")) (set bootlogo 1) )
)

;******************************************************************************** 
; CPUP2C
;********************************************************************************
(set cpup2c   (askchoice    (choices #no #yes)
	                       (prompt (cat #cpup2c " " #currset))
	                       (help   (cat #cpup2c " " #currset))
          		       (default cpup2c)
	      )
)

(if (= cpup2c 0) ( (run "setenv cybergraphics/CPUP2C 0")
     (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )  )
)

(if (= cpup2c 1) ( (run "setenv cybergraphics/CPUP2C 1")
     (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )  )
)

;******************************************************************************** 
; HIRESCRSR
;********************************************************************************
(set HIRESCRSR (askchoice    (choices #no #yes)
	                       (prompt (cat #hirescrsr " " #currset))
	                       (help   (cat #hirescrsr " " #currset))
          		       (default hires)
	       )
)

(if (= HIRESCRSR 0) ( (run "setenv cybergraphics/HIRESCRSR 0")
     (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) )
)

(if (= HIRESCRSR 1) ( (run "setenv cybergraphics/HIRESCRSR 1")
     (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") ) )
)


;******************************************************************************** 
; HIDE15BIT
;********************************************************************************
(set HIDE15BIT (askchoice    (choices #no #yes)
	                       (prompt (cat #hide15bit " " #currset))
	                       (help   (cat #hide15bit " " #currset))
          		       (default hide15bit)
	       )
)

(if (= HIDE15BIT 0) ( (run "setenv cybergraphics/HIDE15BIT 0")
     (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) )
)

(if (= HIDE15BIT 1) ( (run "setenv cybergraphics/HIDE15BIT 1")
     (copyfiles (source "ENV:cybergraphics/HIDE15BIT") (dest "ENVARC:cybergraphics") ) )
)


;******************************************************************************** 
; ALERTEMU
;********************************************************************************
(set ALERTEMU  (askchoice    (choices #no #yes)
	                       (prompt (cat #alertemu " " #currset))
	                       (help   (cat #alertemu " " #currset))
          		       (default alertemu)
	       )
)

(if (= ALERTEMU 0) ( (run "setenv cybergraphics/ALERTEMU 0")
     (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) )
)

(if (= ALERTEMU 1) ( (run "setenv cybergraphics/ALERTEMU 1")
     (copyfiles (source "ENV:cybergraphics/ALERTEMU") (dest "ENVARC:cybergraphics") ) )
)



;******************************************************************************** 
; NOCHIPSCREEN
;********************************************************************************
(set NOCHIPSCREEN (askchoice    (choices #no #yes)
	                       (prompt (cat #nochip " " #currset))
	                       (help   (cat #nochip " " #currset))
          		       (default nochip)
	          )
)

(if (= NOCHIPSCREEN 0) ( (run "setenv cybergraphics/NOCHIPSCREEN 0")
     (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
)

(if (= NOCHIPSCREEN 1) ( (run "setenv cybergraphics/NOCHIPSCREEN 1")
     (copyfiles (source "ENV:cybergraphics/NOCHIPSCREEN") (dest "ENVARC:cybergraphics") ) )
)



;******************************************************************************** 
; PLANES2FAST
;********************************************************************************
(set PLANES2FAST (askchoice    (choices #no #yes)
	                       (prompt (cat #planes2 " " #currset))
	                       (help   (cat #planes2 " " #currset))
          		       (default planes2)
	          )
)

(if (= PLANES2FAST 0) ( (run "setenv cybergraphics/PLANES2FAST 0")
     (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
)

(if (= PLANES2FAST 1) ( (run "setenv cybergraphics/PLANES2FAST 1")
     (copyfiles (source "ENV:cybergraphics/PLANES2FAST") (dest "ENVARC:cybergraphics") ) )
)


;******************************************************************************** 
; NOPASSTHROUGH
;********************************************************************************
(set NOPASSTHROUGH (askchoice    (choices #no #yes)
	                       (prompt (cat #nopass " " #currset))
	                       (help   (cat #nopass " " #currset))
          		       (default nopass)
	          )
)

(if (= NOPASSTHROUGH 0) ( (run "setenv cybergraphics/NOPASSTHROUGH 0")
     (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
)

(if (= NOPASSTHROUGH 1) ( (run "setenv cybergraphics/NOPASSTHROUGH 1")
     (copyfiles (source "ENV:cybergraphics/NOPASSTHROUGH") (dest "ENVARC:cybergraphics") ) )
)


;******************************************************************************** 
; KEEPAMIGAVIDEO
;********************************************************************************
(set KEEPAMIGAVIDEO (askchoice    (choices #no #yes)
	                       (prompt (cat #keepamiga " " #currset))
	                       (help   (cat #keepamiga " " #currset))
          		       (default keepamiga)
	          )
)

(if (= KEEPAMIGAVIDEO 0) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 0")
     (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
)

(if (= KEEPAMIGAVIDEO 1) ( (run "setenv cybergraphics/KEEPAMIGAVIDEO 1")
     (copyfiles (source "ENV:cybergraphics/KEEPAMIGAVIDEO") (dest "ENVARC:cybergraphics") ) )
)



;******************************************************************************** 
; BOOTLOGO
;********************************************************************************
(set BOOTLOGO     (askchoice    (choices #no #yes)
	                       (prompt (cat #bootlogo  " " #currset))
	                       (help   (cat #bootlogo  " " #currset))
          		       (default bootlogo)
	          )
)

(if (= BOOTLOGO 0) ( (run "setenv cybergraphics/BOOTLOGO 0")
     (copyfiles (source "ENV:cybergraphics/BOOTLOGO") (dest "ENVARC:cybergraphics") ) )
)

(if (= BOOTLOGO 1) ( (run "setenv cybergraphics/BOOTLOGO 1")
     (copyfiles (source "ENV:cybergraphics/BOOTLOGO") (dest "ENVARC:cybergraphics") ) )
)



;****
)
)




;******************************************************************************** 
;
; Change Set Monitor Defaults mode
;
;********************************************************************************
(if (= ja 1)
(


(set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
                               "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
                               "A2410" "DraCoAltais" "Merlin"
			 (prompt #board)
	                 (help "Select a Gfx Board")
          		 (default #BGuess)
	             )
          )
)


(if (= board 0) ((set DirText "PicassoMonitor")     (set Dir "Picasso")     ))
(if (= board 1) ((set DirText "SpectrumMonitor")    (set Dir "Spectrum")    ))
(if (= board 2) ((set DirText "PiccoloMonitor")     (set Dir "Piccolo")     ))
(if (= board 3) ((set DirText "DominoMonitor")      (set Dir "Domino")      ))
(if (= board 4) ((set DirText "RetinaZ3Monitor")    (set Dir "RetinaZ3")    ))
(if (= board 5) ((set DirText "PiccoSD64Monitor")   (set Dir "PiccoSD64")   ))
(if (= board 6) ((set DirText "CyberVisionMonitor") (set Dir "CyberVision") ))
(if (= board 7) ((set DirText "A2410Monitor")       (set Dir "A2410")       ))
(if (= board 8) ((set DirText "RetinaZ3Monitor")    (set Dir "DraCoAltais") ))
(if (= board 9) ((set DirText "MerlinMonitor")      (set Dir "Merlin")      ))


(set runstring (cat "search" " ENVARC:cybergraphics/" DirText))
                                                         
(set runstring1 (cat runstring " 80"))  (if (= (run runstring1) 0) (set MonitorIS "80"))
(set runstring1 (cat runstring " 64"))  (if (= (run runstring1) 0) (set MonitorIS "64"))	  
(set runstring1 (cat runstring " 57"))  (if (= (run runstring1) 0) (set MonitorIS "57"))
(set runstring1 (cat runstring " 48"))  (if (= (run runstring1) 0) (set MonitorIS "48"))
(set runstring1 (cat runstring " 38"))  (if (= (run runstring1) 0) (set MonitorIS "38"))
(set runstring1 (cat runstring " 35"))  (if (= (run runstring1) 0) (set MonitorIS "35"))
(set runstring1 (cat runstring " 31"))  (if (= (run runstring1) 0) (set MonitorIS "31"))
(set runstring1 (cat runstring " 15"))  (if (= (run runstring1) 0) (set MonitorIS "15"))

(set #envcyb  (cat "ENVARC:cybergraphics/" Dir))
(set #envcyb1 (cat "ENVARC:cybergraphics/" DirText))

(set #looklike (cat "Monitor-" MonitorIS "khz"))
(if (= MonitorIS "A Custom Setting File") (set #looklike ""))

(set    Name (askfile (prompt (cat #lookslikemonitor MonitorIS))
		        (help   #lookslikemonitor)
                        (default (tackon #envcyb #looklike))
               )
)


(set #updatemonitor (cat #youwantto "\n\n" DirText "\n\n" #to "\n\n" Name "\n") )


(if (<> (fileonly Name) "")
 ( 

   (set todo  (askchoice (choices #yes #no)
   		      (prompt #updatemonitor)
	              (help #updatemonitor)
          	      (default 0)
	              
           )
   )


   (if (= todo 0)
      (
         (if (> (exists (#envcyb)) 0)
           (
            (copyfiles (source (cat #envcyb1 ) (dest "ENVARC:cybergraphics/") (newname (cat #envcyb1 ".backup")) ) )
            (delete #envcyb1) 
            (textfile (append (fileonly Name)) (dest #envcyb1) )
           ) 
         ) 
      )
   )

 )
)


;****
)
)





;******************************************************************************** 
;
;ASK DEFAULT GFX board  for changing CVMode
;
;********************************************************************************
(if (= ja 2)
(


(set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
                               "Retina Z3 BLT" "Piccolo Z3 SD64" "CyberVision64"
                               "A2410" "DraCoAltais" "Merlin"
			 (prompt #board)
	                 (help "Select a Gfx Board")
          		 (default #BGuess)
	             )
          )
)


  (set    Name1 (askfile (prompt #askwereisCVMode)
		        (help   #askwereisCVMode)
		        (default "sys:CVMode")
                )
  )
 

  (set Name Name1)

  (if (= (fileonly Name1) "") (set Name (tackon Name1 "CVMode")) )

  (if (< (exists Name) 1) (abort #noicon) )
  (if (< (exists (cat Name ".info")) 1) (abort #noicon) )




 
  (tooltype	(dest Name)
  		        (if (= board 0) (settooltype "BOARD" "Picasso") )
                        (if (= board 1) (settooltype "BOARD" "Spectrum") )
                        (if (= board 2) (settooltype "BOARD" "Piccolo") ) 
                        (if (= board 3) (settooltype "BOARD" "Domino") )
                        (if (= board 4) (settooltype "BOARD" "RetinaZ3") )
                        (if (= board 5) (settooltype "BOARD" "PiccoSD64") )
                        (if (= board 6) (settooltype "BOARD" "CyberVision") )
                        (if (= board 7) (settooltype "BOARD" "A2410") )
                        (if (= board 8) (settooltype "BOARD" "RetinaZ3") )
                        (if (= board 9) (settooltype "BOARD" "Merlin") )
  )                 



)
)
;hammerd
;******************************************************************************** 
; Fool the installer to skip the welcome and set the defdest
;********************************************************************************
(set @default-dest "ENVARC:cybergraphics")


(exit "CyberPrefsX is Done.")
