;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:Docs/BJ10.doc")
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        (set error (trap 4
        (copyfiles (source "Install-printer:Docs/BJ10.doc.info")
                   (dest "sys:prefs"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


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


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


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


        )
      )



   ))



))

(if (= PrinterMake 1)
(
   (message ("%s%s%s" 
             "Please run the Citizen Print Manager Install program,\n"
             "which can be found on the disk you should have been \n"
             "given with the printer."))
)
)

(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 (= Printer 0)
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/HP/HP_DeskJet500") 
                   (dest "devs:printers"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
   )

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

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



)
)
(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."
                           )
                )
   )

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

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


)
)

(if (= PrinterMake 4)
(   (set Printer (askchoice (prompt "Which particular printer do you own?")
                           (choices "9 pin colour or mono)"
                                    "24pin colour or mono)"
                           )
                           (help "Click on the Star printer you own,"
                                 " then on proceed."
                           )
                )
   )

   (if (= Printer 0)
        (set error (trap 4
        (copyfiles (source "Install-printer:Store/Star/9Pin/Star9Plus") 
                   (dest "devs:printers"))        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
   )

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


)
)
(if (<> PrinterMake 1)
(message ("Don't forget to set your new printer in Preferences!\n %s"
          "\nPlease read the documentation if you haven't already done so" )))