{ =================================================== }
{       Das MKINL Programm -- INCLUDE Dateien         }
{                                                     }
{           TEIL 1 : JOYCE abhaengiger Code           }
{                                                     }
{ =================================================== }

function wherex:byte;
begin
  inline($cd/$5a/$fc/$bf/$00/$26/$00/$2c/$c9);
end;

function wherey:byte;
begin
  inline($cd/$5a/$fc/$bf/$00/$6c/$3e/$1d/$bd/$d2/*+3/$6f/$26/$00/$2c/$c9);
end;

procedure invisible;
begin
  write(esc,'f');
end;

procedure visible;
begin
  write(esc,'e');
end;