home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / PASLIBR.ZIP / FPKBD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-15  |  2.6 KB  |  84 lines
  1. {------------------------------------------------------------}
  2. {-        FlashPac Pascal Library (Kbd 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 FPKbd;
  10. Interface
  11. {$B-,F+}
  12. {$IFNDEF VER40}
  13. {D-}
  14. {$ENDIF}
  15.  
  16. Type
  17.    Str2 = String[2];
  18.  
  19. {--------------------------------------------------------------------}
  20. {-                                                                  -}
  21. {--------------------------------------------------------------------}
  22.  
  23.    Procedure BiosKbdClr;
  24.    Procedure BiosKbdRead(Var St : Str2);
  25.  
  26.    Function  BiosKbdGetElmt : Integer;
  27.    Function  BiosKbdHit     : Boolean;
  28.    Function  BiosKbdStat    : Integer;
  29.  
  30.    Procedure DosKbdClr;
  31.    Procedure DosKbdRead(Var St : Str2);
  32.  
  33.    Function  DosKbdGetElmt : Integer;
  34.    Function  DosKbdHit     : Boolean;
  35.  
  36. {--------------------------------------------------------------------}
  37. {-                                                                  -}
  38. {--------------------------------------------------------------------}
  39.  
  40. Implementation
  41.  
  42. Const
  43.    Copyright1 = 'FlashPac Pascal Library (Kbd Unit) - V3.5';
  44.    Copyright2 = '(c) Copyright 1986-1991 - All Rights Reserved';
  45.    Copyright3 = 'SimpleSoft, Inc.';
  46.    Copyright4 = '1209 Poplar St';
  47.    Copyright5 = 'La Crescent, MN 55947';
  48.  
  49.    {$L kbd\BKbdClr }
  50.    {$L kbd\BKbdElmt}
  51.    {$L kbd\BKbdHit }
  52.    {$L kbd\BKbdRead}
  53.    {$L kbd\BKbdStat}
  54.  
  55.    {$L kbd\DKbdClr }
  56.    {$L kbd\DKbdElmt}
  57.    {$L kbd\DKbdHit }
  58.    {$L kbd\DKbdRead}
  59.  
  60. {--------------------------------------------------------------------}
  61. {-                                                                  -}
  62. {--------------------------------------------------------------------}
  63.  
  64.    Procedure BiosKbdClr;       External;
  65.    Function  BiosKbdGetElmt;   External;
  66.    Function  BiosKbdHit;       External;
  67.    Procedure BiosKbdRead;      External;
  68.    Function  BiosKbdStat;      External;
  69.  
  70.    Procedure DosKbdClr;        External;
  71.    Function  DosKbdGetElmt;    External;
  72.    Function  DosKbdHit;        External;
  73.    Procedure DosKbdRead;       External;
  74.  
  75. {--------------------------------------------------------------------}
  76. {-                                                                  -}
  77. {--------------------------------------------------------------------}
  78.  
  79. Begin
  80. end.
  81.  
  82.  
  83.  
  84.