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  ú  H  ú  E     F  ú  O  ú  R  ú  C  ú  E     T  ú  E  ú  A  ú  M');

  textcolor(blue);

  writeln('');

  writeln('         SýýýýýýýýýSs.          .sS2ýýýýýýýýýýýýý2Ss.sSýýýýýýýýýSs. ');

  writeln('         $ $$$$$$$! $$         $ý~.sS$$$$$$$$$$$Ss.~ý$$ $$$$$$$! $$');

  writeln('         $ I$$$$$$$,ý$         $ I$$$$$$$;^:$$$$$$$$ $$ $$$$$$$$,ý$');

  writeln('      .sS$ $$$$$$$$: $Ss.      $ $$$$$$$$: l$$$$$$$$ $$ $$$$$$$$: $Ss.');

  writeln('      $ sss$$$$$$$$lsss $   .sS$ $$$$$$$$l :$$$$$$$I sss$$$$$$$$lsss $');

  writeln('      $sss $$$$$$$$; sss$   $ sss$$$$$$$$;sss ...... ss $$$$$$$$; sss$');

  writeln('         $ $$$$$$$$. ýýýýýýýýúús $$$$$$$$, sss$$$$$$$$$ I$$$$$$$. ýýýýýýýýýýS');

  writeln('         $ $$$$$$$$: .$$$$$$$! $ $$$$$$$$l $          $ $$$$$$$$: .$$$$$$$! $');

  writeln('         $ $$$$$$$$I :$$$$$$$$ $ $$$$$$$$. $          $ $$$$$$$$I :$$$$$$$$ $');

  writeln('         $ :$$$$$$$: :$$$$$$$; $ $$$$$$$$; $          $ :$$$$$$$: :$$$$$$$; $');

  writeln('         :$.`~ý2$$$$s$$$$$2ý~ï,$ !$$$$$$!  $          $$ `~ý2$$$$s$$$$$2ý~ï.;');

  writeln('         `~ý2$Ss..........sS2ýï`ýssssssss2ýï          `~ý2$Ss..........sS2ý~ï');

  writeln;

  writeln;

  textcolor(white);

  writeln('          ú Business Card Designer Plus v.5.0 Keymaker by MiRaMaX ú');

  writeln;

  writeln;

  fadeup;

  repeat

  gotoxy(1,20);

  textcolor(white);

  write('        Enter Registration name (MUST be 6 chars!)  : ');

  curs(1);

  GetInput(s,'TFTROX',6,55,20,0,7,'ú',true);

  curs(0);

  until length(s)=6;

  w:=0;

  for i:=1 to 6 do w:=w+ord(s[i]);

  w:=w-($1a*(w div $1a));

  w:=w+$41;

  writeln;

  writeln;

  textcolor(white);

  Writeln('        Your registration code is                   : BCD5-',chr(w)+s,'-CAM1');

  writeln;

  writeln('        (Use your own name/company)');

  readkey;



  fadedown;

  clrscr;

  fadeup;

end.