home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 18 / CD_ASCQ_18_111294_W.iso / dos / prg / pas / theprn25 / the_prn.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-24  |  8KB  |  214 lines
  1.  
  2. (*
  3.   NAME   The_Prn.Pas  Copyright 1992-94, Rob W. Smetana All Rights Reserved.
  4.   ====
  5.          Pascal support file for The Printer (a printer code database).
  6.  
  7.   PURPOSE
  8.   =======
  9.  
  10.   An INCLUDE file providing the "field structure" of both Printer.Dat (large
  11.   database) and Printer.Cfg (small configuration file saved by Printer.Exe).
  12.  
  13.  
  14.   RECORD LAYOUT
  15.   =============
  16.  
  17.   "Records" (for each printer) are 1024 bytes in length.  In the main
  18.   database, there's 1 record for each printer (but see next paragraph).
  19.   The "Printer.Cfg" file saved by Printer.Exe or Edit.Exe contains TWO
  20.   1024 byte records.  The first contains labels, the 2nd contains
  21.   printer codes.
  22.  
  23.   In The Printer's database, a printer may have 2 or more records if it
  24.   can emulate 2 or more other printers.  In other words, each emulation
  25.   is treated as a separate printer. The field "EmMode" tells you which
  26.   printer is being emulated.
  27.  
  28.   ALL fields are STRINGS and all are 14 bytes long EXCEPT the first two:
  29.     - Reserved is 1 byte   (reserved for our development)
  30.     - Printer Manufacturer is 15 bytes
  31.  
  32.  
  33.   PLACEHOLDERS:  ASCII character 251 (√)
  34.   ============
  35.  
  36.   Some printer codes require "variables."  For example, to specify, say
  37.   3/48 inch line spacing (instead of the normal 6 lines per inch), you
  38.   send a code like Chr$(27);"L03" (for a Toshiba printer).  In this case
  39.   both "0" and "3" are variables.
  40.    - The database would store this code as:  L√√
  41.    - Escape is stored as ASCII character 27.
  42.    - ASCII 251 (√) is simply a "placeholder" which YOU must replace
  43.      with appropriate characters.
  44.  
  45.   You MUST replace the placeholder -- the printer code is meaningless
  46.   otherwise.
  47.  
  48.  
  49.   TWO TYPES
  50.   =========
  51.  
  52.   Below are 2 TYPES you may use to read printer records.
  53.  
  54.    * These TYPES can be used to read either the large database itself
  55.      (Printer.Dat) or the small config. file (Printer.Cfg) saved by
  56.      Printer.Exe when you select a printer.
  57.  
  58.    * The first TYPE (PrnHeader) reads the 1st 44 bytes of records.
  59.      Here you'll find the printer's Manufacturer, Model and Emulation mode.
  60.  
  61.    * The 2nd TYPE (ThePrn) will read/hold actual printer codes.
  62.  
  63.  
  64.   NOTE:  By separating these, if you don't care about the header, you're
  65.          not forced to keep it around.  Read it (with any 44-byte variable),
  66.          throw it away, then read just the printer codes.
  67. *)
  68.  
  69.  
  70. TYPE
  71.    PrnHeader = Record
  72.  
  73. {=========== Start with a header (Printer manufacturer, model and emulation). }
  74.  
  75.            Reserved :Byte;             { Reserved (for development) }
  76.  
  77.        Manufacturer :Array[1..15] of Char; { eg., Epson, Panasonic, Star, etc. }
  78.  
  79.  
  80. {=========== All remaining fields are 14 bytes. }
  81.  
  82.               Model ,                  { Specific printer model (eg., LQ-510) }
  83.  
  84.              EmMode :Array[1..14] of Char; { If not blank, this describes the }
  85.                                            { printer being emulated. }
  86.  
  87.                                        { 44 bytes through here !!! }
  88. End;
  89.  
  90. TYPE
  91.    ThePrn = Record
  92. {========== 70, 14-byte printer codes follow.
  93.  
  94.             The last few are blank, "expansion" fields for our
  95.             use (if we add codes), or by you or your user.
  96.  
  97.             NOTE:  We may expand into these -- starting with the
  98.             first.  If you're concerned that later we might collide
  99.             with you, start your codes at the end, then move forward.
  100. }
  101.  
  102.          Initialize ,                 { Reset to power-on mode (many printers }
  103.                                       { have no reset -- a shame). }
  104.  
  105. { ...pitch/character sets/master attributes }
  106.  
  107.           Pitch10ON ,                 { Turn on 10 characters-per-inch (CPI; Pica) }
  108.           Pitch12ON ,                 { Turn on 12 CPI (eg., Elite) }
  109.         CondensedON ,                 { Turn on Condensed mode (15-17 CPI) }
  110.        CondensedOFF ,                 { Turn Condensed mode off }
  111. ProportionalSpacing ,                 { Turn on Proportional Spacing }
  112.        FixedSpacing ,                 { Turn on Fixed Spacing }
  113.  
  114.       SelectCharSet ,                 { Select Character Set (USA, French, etc.) }
  115.    SelectMasterFont ,                 { Select Master Font (Roman, Prestige, etc.) }
  116.    SelectPrintStyle ,                 { Select Elite, Condensed, etc. }
  117.           DraftMode ,                 { Turn Draft Mode on (high speed) }
  118.   NearLetterQuality ,                 { Turn on Near-Letter Quality mode }
  119.  
  120. { ... Line spacing }
  121.  
  122.       LinesPerInch6 ,                 { Turn on 6 lines-per-inch (LPI) }
  123.       LinesPerInch8 ,                 {   "  "  8    "   "   " }
  124.      LinesPerInch12 ,                 {   "  "  12   "   "   " }
  125.  
  126.   VariableLineSpace ,                 { Change line spacing (LPI) -- fine increments }
  127.     AltVariableLine ,                 { Alternate way to change line spacing }
  128.  
  129. { ... Attributes/Emphasis/SuperScript/Etc }
  130.  
  131.      DoubleStrikeON ,                 { Turn on Double-Strike mode }
  132.     DoubleStrikeOFF ,                 {   "  off  "       "     " }
  133.  
  134.        DoubleWideON ,                 { Turn Double-Wide on }
  135.       DoubleWideOFF ,                 {   "    "     "   off }
  136.  
  137.      DoubleHeightON ,                 { Turn Double-High on }
  138.     DoubleHeightOFF ,                 {   "    "     "   off }
  139.  
  140.        EmphasizedON ,                 { Turn Emphasized mode on }
  141.       EmphasizedOFF ,                 {   "       "      "   off }
  142.  
  143.              BoldOn ,                 { Turn Bold mode on }
  144.             BoldOff ,                 {   "   "     "   off }
  145.  
  146.         UnderlineON ,                 { Turn Underline mode on }
  147.        UnderlineOff ,                 {   "       "     "   off }
  148.  
  149.            ItalicON ,                 { Turn Italic mode on }
  150.           ItalicOff ,                 {   "     "     "   off }
  151.  
  152.       SuperScriptON ,                 { Superscript on }
  153.      SuperScriptOFF ,                 {     "       off }
  154.  
  155.         SubScriptON ,                 { Subscript on }
  156.        SubScriptOFF ,                 {     "     off }
  157.  
  158. { ... Other }
  159.  
  160.   SkipPerforationON ,                 { Skip perforation zone }
  161.  SkipPerforationOFF ,                 { Turn off Skip perf. }
  162.  
  163. UnidirectionalPrint ,                 { Unidirectional print on (for accuracy) }
  164.  BidirectionalPrint ,                 { Bidirectional print on (for speed) }
  165.  
  166.          PushCursor ,                 { (LaserJet) Push (save) cursor position }
  167.           PopCursor ,                 {      "     Pop (restore)  "       " }
  168.  
  169.    PageLengthInches ,                 { Set page length in INCHES }
  170.     PageLengthLines ,                 { Set page length in LINES }
  171.  
  172.         SetTabStops ,                 { Set Tab Stops }
  173.  
  174.        SetTopMargin ,                 { Set Top Margin }
  175.     SetBottomMargin ,                 {  "  Bottom " }
  176.       SetLeftMargin ,                 {  "  Left   " }
  177.      SetRightMargin ,                 {  "  Right  " }
  178.  
  179.  
  180. { ... The next 4 codes let you move to vertical or horizontal locations,   }
  181. {     either in absolute terms (ie., a specific row/column) or relative to }
  182. {     where you are (ie., move 5 dots down). }
  183.  
  184. AbsVerticalLocation ,                 { Move vertically to a specific Row (or dot) }
  185. RelVerticalLocation ,                 { Move "y" rows/dots from where we are now }
  186.  
  187.    AbsHorizLocation ,                 { Move horizontally to a column (or dot) }
  188.    RelHorizLocation ,                 { Move "x" columns/dots from where we are }
  189.  
  190.      InterCharSpace ,                 { Expand/shrink the spacing between  }
  191.                                       { letters (some newer printers only) }
  192.  
  193.        PortraitMode ,                 { LaserJets/DeskJets:  Switch between}
  194.       LandscapeMode ,                 { portrait and landscape orientations}
  195. { ... Expansion fields to give us, you or your users options to add codes. }
  196.  
  197.          User1 ,
  198.          User2 ,
  199.          User3 ,
  200.          User4 ,
  201.          User5 ,
  202.          User6 ,
  203.          User7 ,
  204.          User8 ,
  205.          User9 ,
  206.         User10 ,
  207.         User11 ,
  208.         User12 ,
  209.         User13 ,
  210.         User14 ,
  211.         User15 : Array[1..14] of Char; { This rounds out the     }
  212.                                        { structure to 1024 bytes.}
  213. End;
  214.