Программирование / Курсовые / Arcanoid / Arcanoid / ARCUNITK

unit ArcUnitK;
 interface
const
  kbEsc     = 1;
  kbUp      = 17;
  kbRight   = 32;
  kbLeft    = 30;
  kbDown    = 31;
  kbEnter   = 80;
  kbEnter1   = 72;
  kbIns = 82;
  kbDel = 83;
  kbHome = 71;
 procedure KBD; interrupt;
 function GetKey(n: Byte): Boolean;
 procedure InitKBD;
 procedure DoneKBD;

 implementation
uses DOS,CRT;
var
  Keys: array[1..128] of Boolean;
  Old: procedure;
 procedure KBD;
  var tt: Boolean;
      b: Byte;
   begin
    b:=Port[$60];
    if b>=128 then begin tt:=False; b:=b-128 end else tt:=True;
    Keys[b]:=tt;
    Port[$20]:=$20;
    if KeyPressed then ReadKey;
    Old;
   end;
 function GetKey(n: Byte): Boolean;
   begin
    GetKey:=Keys[n];
   end;
 procedure InitKBD;
   begin
    GetIntVec($9,@Old);
    SetIntVec($9,@KBD);
   end;
 procedure DoneKBD;
   begin
    SetIntVec($9,@Old);
   end;
end.