; Installation script for Canon BJC-600 driver v3.0


(

	(set @default-dest "Sys:Prefs")
  
    (working "Copying Canon driver's files to RAM:...")

    ; Preset the percent-done stuff
    
    (set totalfiles 3)
    (set accum 0)
    (set pct (/ (* accum 100) totalfiles))
    (set accum (+ accum 1))
    (complete pct)

	(copyfiles (source "Driver:CanonBJC-600.000")
                (dest   "ram:")
     	)
	(copyfiles (source "Driver:CanonBJC-600.020")
                (dest   "ram:")
     	)
	(copyfiles (source "Driver:CanonBJC-600.prefs")
                (dest   "ram:")
     	)
	(copyfiles (source "Driver:CanonPrefs")
                (dest   "ram:")
     	)
	(copyfiles (source "Driver:CanonPrefs.info")
                (dest   "ram:")
     	)
    
    (complete 10)

    (set answer1
        (askchoice
                (prompt "Choose which driver to install")
                (choices "68000 standard" "68020+ optimized")
         (help "Selecting '68000 standard' will install the code that runs "
            "on any machine. Selecting '68020+ optimized will install code "
	    "that runs only on 68020 and better equipped machines (A1200, "
	    "A4000 and accelerated Amigas). If your computer is not equipped"
	    " with any of these processors and you install this version, "
	    "you'll meet the guru...\n"
         )
                (default 0)
        )
   )

  (if (= answer1 0)

  	; install 68000
     	(copyfiles (source "ram:CanonBJC-600.000")
                (dest   "devs:printers")
     	)
  )
  ; else install 68020
  (if (= answer1 1)
	  (copyfiles (source "ram:CanonBJC-600.020")
                (dest   "devs:printers")
	  )
  )

(complete 40)
(copyfiles (source "ram:CanonPrefs")
                (dest   "sys:prefs")
)
(complete 70)
(copyfiles (source "ram:CanonPrefs.info")
                (dest   "sys:prefs")
)
(complete 80)
(copyfiles (source "ram:CanonBJC-600.prefs")
                (dest   "ENVARC:sys")
)
(complete 90)
(copyfiles (source "ram:CanonBJC-600.prefs")
                (dest   "ENV:sys")
)
)


(complete 100)

(exit)