Kbd: procedure Byte public;
Declare (Key,i) byte;
Declare (CL,ch) word;



HiB=0;
Int1=1;
CL=0ffffh;
ch=255*4;

RPT:

Key=0;
Do i = 0 to 10;
do while Int1=1;
CL=Cl-1;
if Cl=0 then do;
Cl=0ffffh;
ch= ch-1;

if ch=0 then do;
Int1=0;
Return 'N';
end;
end;



end;

do while Int1=0;
end;
if i < 9 then do;
CY=T0;
Key=SCR(Key,1);
end;
end;

if Key=224 then goto RPT;

If TestClear(HiB) then goto RPT;

If Key = 240 then DO;
HiB=1;
goto RPT;
end;

Int1=0;
i=0;
Do while ((KeyArr(i)<>Key) and (KeyArr(i)<>0));
I=I+2;
end;
Key=KeyArr(i+1);



call Beep(20,30);
return Key;
end Kbd;