program eger;
uses crt, dos;
var regs:Registers;
    c   :char;

begin
regs.ax:=0;
Intr($33,regs);
if regs.ax<>0 then
   begin
   regs.ax:=1;
   Intr($33,regs);
   end
else writeln('Nincs eger!');
     c:=readkey;
end.