Amiga ISO Collection/AmigaUtilCD2.iso/Sound/Misc/MUSICX24.DMS/in.adf/Install_Printer

Text File | 1994-04-06 | 6.1 KB | 293 lines

; $VER: Notator-X Install Printer Script (19th July 1993)

(user 2)

(message "\nThis program will copy the specified printer driver(s) to "
         "the selected disk/drive. This will then allow Notator-X to print. "
         "You should either specify the Music-X or Notator-X program disk "
         "depending on the disk you intend to boot with (Repeat on both if "
         "desired). \n\n"
         "NOTE: If you are using the program(s) from a hard drive, "
         "your boot partition should already contain the printer "
         "drivers from when you installed the workbench. "
         "If so select \"Abort\""
)

(set defdrive "SYS:")

(set defdrive
 (askdir
  (prompt "Please indicate the system disk")
  (help @askdir-help)
  (default "SYS:")
 )
)


(set printersa
 (askoptions
  (prompt "Select the desired printer driver(s)\nIf the desired driver is not present, Select \"Proceed\" to display the next list")
  (help @askoptions-help)
  (choices
   "Alphacom_Alphapro_101"
   "Brother_HR-15XL"
   "CalComp_ColorMaster"
   "CalComp_ColorMaster2"
   "Canon_PJ-1080A"
   "CBM_MPS1000"
   "Diablo_630"
   "Diablo_Advantage_D25"
   "Diablo_C-150"
   "EpsonQ"
   "EpsonXOld"
   "EpsonX[CBM_MPS-1250]"
   "Howtek_Pixelmaster"
  )
  (default 2560)
 )
)

(set printersb
 (askoptions
  (prompt "Select the desired printer driver(s)\n")
  (help @askoptions-help)
  (choices
   "HP_DeskJet"
   "HP_LaserJet"
   "HP_PaintJet"
   "HP_ThinkJet"
   "ImagewriterII"
   "Nec_Pinwriter"
   "Okidata_293I"
   "Okidata_92"
   "Okimate_20"
   "Quadram_QuadJet"
   "Qume_LetterPro_20"
   "Toshiba_P351C"
   "Toshiba_P351SX"
   "Xerox_4020"
  )
  (default 2)
 )
)

(if (bitand printersa 1)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Alphacom_Alphapro_101")
 )
)

(if (bitand printersa 2)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Brother_HR-15XL")
 )
)

(if (bitand printersa 4)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "CalComp_ColorMaster")
 )
)

(if (bitand printersa 8)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "CalComp_ColorMaster2")
 )
)

(if (bitand printersa 16)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Canon_PJ-1080A")
 )
)

(if (bitand printersa 32)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "CBM_MPS1000")
 )
)

(if (bitand printersa 64)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Diablo_630")
 )
)

(if (bitand printersa 128)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Diablo_Advantage_D25")
 )
)

(if (bitand printersa 256)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Diablo_C-150")
 )
)

(if (bitand printersa 512)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "EpsonQ")
 )
)

(if (bitand printersa 1024)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "EpsonXOld")
 )
)

(if (bitand printersa 2048)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "EpsonX[CBM_MPS-1250]")
 )
)

(if (bitand printersa 4096)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Howtek_Pixelmaster")
 )
)

(if (bitand printersb 1)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "HP_DeskJet")
 )
)

(if (bitand printersb 2)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "HP_LaserJet")
 )
)

(if (bitand printersb 4)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "HP_PaintJet")
 )
)

(if (bitand printersb 8)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "HP_ThinkJet")
 )
)

(if (bitand printersb 16)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "ImagewriterII")
 )
)

(if (bitand printersb 32)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Nec_Pinwriter")
 )
)

(if (bitand printersb 64)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Okidata_293I")
 )
)

(if (bitand printersb 128)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Okidata_92")
 )
)

(if (bitand printersb 256)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Okimate_20")
 )
)

(if (bitand printersb 512)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Quadram_QuadJet")
 )
)

(if (bitand printersb 1024)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Qume_LetterPro_20")
 )
)

(if (bitand printersb 2048)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Toshiba_P351C")
 )
)

(if (bitand printersb 4096)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Toshiba_P351SX")
 )
)

(if (bitand printersb 8192)
 (copyfiles
  (source (tackon "NX_Utilities:" "devs/printers"))
  (dest (tackon defdrive "devs/printers"))
  (choices "Xerox_4020")
 )
)

(complete 100)

(exit)