home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / MADTRB21.ZIP / KEYSTAT.PC < prev    next >
Text File  |  1985-06-08  |  466b  |  16 lines
  1. FUNCTION KEYSTAT(VAR CH : CHAR) : BOOLEAN;
  2.  
  3. TYPE REG_PACK = RECORD
  4.                   AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER
  5.                 END;
  6.  
  7. VAR REGISTERS : REG_PACK;
  8.  
  9. BEGIN
  10.   REGISTERS.AX := $0600;   { DOS call 6: Direct Console I/O }
  11.   REGISTERS.DX := 255;     { Selects non-echo read function }
  12.   MSDOS(REGISTERS);        { Make the DOS call }
  13.   CH := CHR(REGISTERS.AX); { The character is returned in AX }
  14.   KEYSTAT := CH <> CHR(0)
  15. END;
  16.