program keymaker;

uses crt,palette,dos,keyinput;

var eax,esi:longint;

    s:string;

    i:byte;

    w:word;







Procedure Curs(n:integer);



Var regs : registers;



Begin

  regs.ah:=1;

  case n of

  0 : begin

        regs.cl:=32;

        regs.ch:=32;

      end;

  1 : begin

        regs.cl:=8;

        regs.ch:=7;

      end;

  end;

  intr($10,regs);

End;



begin

  curs(0);

  FadeDown;

  Clrscr;

  textcolor(white);

  writeln('      T