home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPBARCOD.ZIP / BARCODE.DOC next >
Encoding:
Text File  |  1990-01-22  |  1.3 KB  |  44 lines
  1.                            3 of 9 BARCODE
  2.                      PRINTING FOR TURBO PASCAL 5.0
  3.  
  4. This Unit provides the ability to print barcode from within turbo pascal.
  5. The following global constants are provided.
  6.  
  7. CONST
  8.       High      :integer    = 6;      {adjusts Height of barcode}
  9.       LeftSpace :integer    = 2;      {adjusts Left margin of Barcode}
  10.       Width     :integer    = 1;      {adjusts Width of barcode}
  11.       CopyNum   :integer    = 1;      {number of Copies}
  12.       Prtr      :string[3]  = 'IBM';  {type of printer}
  13.       Bold      :string[3]  = 'ON';   {bold face print}
  14.  
  15.  
  16. Procedure Printbar(MSG : String; VAR Valid : Boolean);
  17.  
  18.  
  19.  
  20.  
  21. How to call the unit from your programs;
  22.  
  23.  
  24. Program MyBars;
  25. Uses Barcode;
  26. Var Valid : Boolean;
  27. Begin
  28.    Printbar('My First Barcode',valid);
  29. end;
  30.  
  31. The Boolean Variable 'Valid' will return true if the barcode was printed.
  32. It will return false if the Message String contains invalid characters.
  33. Valid characters are  A..Z  0..9 and Limited Punctuation.
  34. All lowercase characters are converted to uppercase.
  35.  
  36.  
  37. If you find this program useful send five or ten bucks to:
  38.                       Mark V. Parker
  39.                       341 Forrest Hills Dr.
  40.                       Childersburg, AL 35044
  41.  
  42.  
  43.  
  44.