home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / PASLIBR.ZIP / FPPRT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-15  |  1.5 KB  |  50 lines
  1. {------------------------------------------------------------}
  2. {-       FlashPac Pascal Library (Print Unit) - V3.5        -}
  3. {-      (c) Copyright 1986-1991 - All Rights Reserved       -}
  4. {-                     SimpleSoft Inc                       -}
  5. {-                     1209 Poplar St                       -}
  6. {-                 La Crescent, MN 55947                    -}
  7. {------------------------------------------------------------}
  8.  
  9. Unit FPPrt;
  10. Interface
  11. {$B-,F+}
  12. {$IFNDEF VER40}
  13. {D-}
  14. {$ENDIF}
  15.  
  16. {--------------------------------------------------------------------}
  17.  
  18.    Function  BiosPrtChar(Ch : Char; PrtNo : Integer) : Integer;
  19.    Function  BiosPrtInit(PrtNo : Integer) : Integer;
  20.    Function  BiosPrtStat(PrtNo : Integer) : Integer;
  21.    Procedure DosPrtChar(Ch : Char);
  22.  
  23. {--------------------------------------------------------------------}
  24.  
  25. Implementation
  26.  
  27. Const
  28.    Copyright1 = 'FlashPac Pascal Library (Prt Unit) - V3.5';
  29.    Copyright2 = '(c) Copyright 1986-1991 - All Rights Reserved';
  30.    Copyright3 = 'SimpleSoft, Inc.';
  31.    Copyright4 = '1209 Poplar St';
  32.    Copyright5 = 'La Crescent, MN 55947';
  33.  
  34.    {$L prt\BPrtChar}
  35.    {$L prt\BPrtInit}
  36.    {$L prt\BPrtStat}
  37.    {$L prt\DPrtChar}
  38.  
  39. {--------------------------------------------------------------------}
  40.  
  41.    Function  BiosPrtChar;      External;
  42.    Function  BiosPrtInit;      External;
  43.    Function  BiosPrtStat;      External;
  44.    Procedure DosPrtChar;       External;
  45.  
  46. {--------------------------------------------------------------------}
  47.  
  48. Begin
  49. end.
  50.