home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / NEWPC_TP.ZIP / INKEY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-09-28  |  314 b   |  16 lines
  1. type
  2.   regpack      = record
  3.                    ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
  4.                  end;
  5.   ctype        = char;
  6. Var
  7.   R                             : regpack;
  8.   a,ch : char;
  9.  
  10. function inkey : ctype;
  11. begin
  12.   r.ax := $7 shl 8;
  13.   msdos(R);
  14.   inkey := chr((r.ax) and 255);
  15. end;
  16.