home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l002 / 1.ddi / PASCAL / PDRIVERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-19  |  2.4 KB  |  73 lines
  1. unit Pdrivers;
  2.  
  3. INTERFACE
  4.  
  5.  (*   drivers  *)
  6.  
  7.  const Star_SR9   = 0;
  8.        IBM9       = 1;  (* IBM GraphPrinter  *)
  9.        EPSON9     = 1;     (* EPSON, IBM ProPrinter   *)
  10.        PANASONIC9 = 2;     (* Panasonic KX-P1124 - not tested *)
  11.        IBM9c      = 3;     (* IBM ProPrinter (color) *)
  12.        EPSON9c    = 3;     (* EPSON (color) *)
  13.        EPSON24    = 4;     (* 24 pins EPSON compatible printer *)
  14.        IBM24      = 5;     (* 24 pins IBM compatible printer *)
  15.        EPSON24c   = 6;     (* 24 pins EPSON compatible color printer *)
  16.                            (*  not tested *)
  17.        IBM24c     = 7;     (* 24 pins IBM compatible color printer *)
  18.                            (*  not tested *)
  19.        HPPaintJet = 8;     (* HP Paint Jet - not tested *)
  20.        HPLJII     = 9;     (* HP Laser Jet *)
  21.  
  22.  (* modes for particular drivers *)
  23.  
  24.    (* EPSON9   *)
  25.       const  EPSON9_60x72     = 0;
  26.       const  EPSON9_120x72    = 1;
  27.       const  EPSON9_120x216   = 2;
  28.       const  EPSON9_240x216   = 3;
  29.    (* STAR_SR9    *)
  30.       const  STAR_SR9_60x72       = 0;
  31.       const  STAR_SR9_120x72      = 1;
  32.       const  STAR_SR9_120x144     = 2;
  33.       const  STAR_SR9_240x144     = 3;
  34.    (* IBM9     *)
  35.       const  IBM9_60x72       = 0;
  36.       const  IBM9_120x72      = 1;
  37.       const  IBM9_120x216     = 2;
  38.       const  IBM9_240x216     = 3;
  39.    (* EPSON24  *)
  40.       const  EPSON24_60x180    = 0;
  41.       const  EPSON24_120x180   = 1;
  42.       const  EPSON24_180x180   = 2;
  43.       const  EPSON24_360x180   = 3;
  44.       const  EPSON24_360x360   = 4;
  45.    (* IBM24    *)
  46.       const  IBM24_60x180    = 0;
  47.       const  IBM24_120x180   = 1;
  48.       const  IBM24_180x180   = 2;
  49.       const  IBM24_360x180   = 3;
  50.    (* HPPJ   *)
  51.       const  HPPJ_90x90       = 0;
  52.       const  HPPJ_180x180     = 1;
  53.       const  HPPJ_90x90c      = 2;
  54.       const  HPPJ_180x180c    = 3;
  55.    (* HPLJII   *)
  56.       const  HPLJII_75x75      =  0;
  57.       const  HPLJII_100x100    =  1;
  58.       const  HPLJII_150x150    =  2;
  59.       const  HPLJII_300x300    =  3;
  60.  
  61.  
  62.  
  63. Procedure PRT_LinkDriversDefinitions;
  64. Const PRT__DriversPtr: pointer = nil;
  65.  
  66. IMPLEMENTATION
  67.  
  68. Procedure PRT_LinkDriversDefinitions;
  69.          External; {$L Drivers <-------------------------------- }
  70.          { If you didn't compile file Drivers.asm you don't have
  71.            Drivers.Obj file. Delete or rename this file in that
  72.            case and make will take existing TPU file. }
  73. END {unit Pdrivers}.