home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_INT.ZIP / SPX_KEY.INT < prev    next >
Text File  |  1993-05-05  |  1KB  |  29 lines
  1. Unit SPX_KEY;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. interface
  6.  
  7. var
  8.   ch           : char;                        { ASCII key pressed }
  9.   np           : array[1..9,1..2] of boolean; { KEYPAD flags      }
  10.   portb        : byte;                        { PORT $60 value    }
  11.   cleared,                                    { TRUE - if int is disabled }
  12.   cold,                                       { TRUE - call old int }
  13.   funct,                                      { TRUE - extended char pressed }
  14.   plus,                                       { plus key pressed }
  15.   minus,                                      { minus key pressed }
  16.   lshft,rshft,                                { shift keys pressed }
  17.   space,                                      { space key pressed }
  18.   bspc,                                       { backspace pressed }
  19.   esc,                                        { esc pressed }
  20.   enter            : boolean;                 { enter pressed }
  21.  
  22. procedure clearbuffer;
  23. procedure clearkeyint;
  24. procedure installkeyint;
  25. function anykey:boolean;
  26. procedure cli; inline($fa);
  27. procedure sti; inline($fb);
  28.  
  29.