home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ETRAP8.ZIP / GETAKEY.INC < prev    next >
Encoding:
Text File  |  1988-03-11  |  202 b   |  15 lines
  1.  
  2. function getakey :integer;
  3.  
  4. var
  5.   regs:registers;
  6.   ch:integer;
  7. begin
  8.   regs.ah := 0;
  9.   Intr ($16,regs);
  10.   ch:=regs.al;
  11.   if (Ch = 0) then
  12.     ch:=(regs.ah + 256);
  13.   getakey:=(ch);
  14. end;
  15.