;Commodore install script ©1993 Nick Lines / First Computer Centre
;  This one installs the selected printer to devs:printers
;  gives a choice as well!
; "$VER: Install-printer_V1.00ß"

(complete 0)
(set version (/ (getversion) 65536))
(set @default-dest "devs:Printers")

(set PrinterMake   (askchoice (prompt "Welcome to First Computer Centre's exclusive\n"
                                      "printer installer\n\n"
                                      "Please click on the make of printer you have just purchased, "
                                      "or on 'Help' for help\n")
                             (choices "Canon"
                                      "Citizen"
                                      "Hewlett-Packard"
                                      "Panasonic"
                                      "Star"
                             )
                             (help "Install_printer ©1993 Nick Lines/"
                                   "First Computer Centre\n"
                                   "\nClick on the make of your new printer, "
                                   "then click on proceed.")
                   )
)
(if (= PrinterMake 0)
(   (set Printer (askchoice (prompt "Which particular printer do you own?")
                           (choices "BJ10ex"
                                    "BJ20"
                                    "BJ200"
                                    "BJ300")

                           (help "Click on the Canon printer you own, then "
                                 "on proceed")
                )
   )
   (set CanonBits (askoptions (prompt "Which parts do you want installing?")
                              (choices "Printer Driver"
                                       "CanonPrefs"
                                       "Font DownLoad (not BJ300)"
                                       "Documentation"
                              )
                              (help "Always install the printer driver.\n"
                               "CanonPrefs allows better customisation of"
                               " your printers settings, as does downloading"
                               " of fonts.\nDocumentation is also a must!")
                  )
   )

   (if (IN CanonBits 0)
      ((if (= Printer 0)
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
                   (dest "devs:printers"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )

      (if (= Printer 1)
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
                   (dest "devs:printers"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )

      (if (= Printer 2)
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonBJ10") 
                   (dest "devs:printers"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )

      (if (= Printer 3)
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonBJ300") 
                   (dest "devs:printers"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )


   ))
   (if (AND (IN CanonBits 1 ) (> version 36))
      ((if (= Printer 0)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 1);
         (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 2)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/CanonPref.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 3)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonPref") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ300/CanonPref.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )



   ))

   (if (AND (IN CanonBits 2 ) (> version 36))
      ((if (= Printer 0)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 1);
         (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 2)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/FontShop.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 3)
	(message "FontShop not available for BJ300 :(")
      )


   ))

   (if (IN CanonBits 3 )
      ((if (= Printer 0)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/Readme") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/Readme.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 1);
         (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 2)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ10/ReadMe.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )
      (if (= Printer 3)
        (
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ300/ReadMe") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Canon/BJ300/ReadMe.info") 
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


        )
      )



   ))



))

(if (= PrinterMake 1)
   (set Printer (askchoice (prompt "Which particular printer do you own?")
                           (choices "Swift 9 Colour"
                                    "Swift 200 Colour"
                                    "Swift 240 Colour"
                           )
                           (help "Click on the Citizen printer you own,"
                                 " then on proceed.")
                )
   )
)

(if (= PrinterMake 2)
   (set Printer (askchoice (prompt "Which particular printer do you own?")
                           (choices "DeskJet 500 mono  "
                                    "DeskJet 500 Colour"
                                    "DeskJet 550 Colour"
                           )
                           (help "Click on the HP printer you own, then"
                                 " on proceed."
                           )
                )
   )
)
(if (= PrinterMake 3)
   (set Printer (askchoice (prompt "Which particular printer do you own?")
                           (choices "KXP - 2180 (9 pin colour)"
                                    "KXP - 2123 (24pin colour)"
                           )
                           (help "Click on the Panasonic printer you own,"
                                 " then on proceed."
                           )
                )
   )
)