home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / keymak1.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  2.4 KB  |  81 lines

  1.  
  2. program keymaker;
  3. uses crt,palette,dos,keyinput;
  4. var eax,esi:longint;
  5.     s:string;
  6.     i:byte;
  7.     w:word;
  8.  
  9.  
  10.  
  11. Procedure Curs(n:integer);
  12.  
  13. Var regs : registers;
  14.  
  15. Begin
  16.   regs.ah:=1;
  17.   case n of
  18.   0 : begin
  19.         regs.cl:=32;
  20.         regs.ch:=32;
  21.       end;
  22.   1 : begin
  23.         regs.cl:=8;
  24.         regs.ch:=7;
  25.       end;
  26.   end;
  27.   intr($10,regs);
  28. End;
  29.  
  30. begin
  31.   curs(0);
  32.   FadeDown;
  33.   Clrscr;
  34.   textcolor(white);
  35.   writeln('      T  ·  H  ·  E     F  ·  O  ·  R  ·  C  ·  E     T  ·  E  ·  A  ·  M');
  36.   textcolor(blue);
  37.   writeln('');
  38.   writeln('         S²²²²²²²²²Ss.          .sS2²²²²²²²²²²²²²2Ss.sS²²²²²²²²²Ss. ');
  39.   writeln('         $ $$$$$$$! $$         $²~.sS$$$$$$$$$$$Ss.~²$$ $$$$$$$! $$');
  40.   writeln('         $ I$$$$$$$,²$         $ I$$$$$$$;^:$$$$$$$$ $$ $$$$$$$$,²$');
  41.   writeln('      .sS$ $$$$$$$$: $Ss.      $ $$$$$$$$: l$$$$$$$$ $$ $$$$$$$$: $Ss.');
  42.   writeln('      $ sss$$$$$$$$lsss $   .sS$ $$$$$$$$l :$$$$$$$I sss$$$$$$$$lsss $');
  43.   writeln('      $sss $$$$$$$$; sss$   $ sss$$$$$$$$;sss ...... ss $$$$$$$$; sss$');
  44.   writeln('         $ $$$$$$$$. ²²²²²²²²··s $$$$$$$$, sss$$$$$$$$$ I$$$$$$$. ²²²²²²²²²²S');
  45.   writeln('         $ $$$$$$$$: .$$$$$$$! $ $$$$$$$$l $          $ $$$$$$$$: .$$$$$$$! $');
  46.   writeln('         $ $$$$$$$$I :$$$$$$$$ $ $$$$$$$$. $          $ $$$$$$$$I :$$$$$$$$ $');
  47.   writeln('         $ :$$$$$$$: :$$$$$$$; $ $$$$$$$$; $          $ :$$$$$$$: :$$$$$$$; $');
  48.   writeln('         :$.`~²2$$$$s$$$$$2²~∩,$ !$$$$$$!  $          $$ `~²2$$$$s$$$$$2²~∩.;');
  49.   writeln('         `~²2$Ss..........sS2²∩`²ssssssss2²∩          `~²2$Ss..........sS2²~∩');
  50.   writeln;
  51.   writeln;
  52.   textcolor(white);
  53.   writeln('          · Business Card Designer Plus v.5.0 Keymaker by MiRaMaX ·');
  54.   writeln;
  55.   writeln;
  56.   fadeup;
  57.   repeat
  58.   gotoxy(1,20);
  59.   textcolor(white);
  60.   write('        Enter Registration name (MUST be 6 chars!)  : ');
  61.   curs(1);
  62.   GetInput(s,'TFTROX',6,55,20,0,7,'·',true);
  63.   curs(0);
  64.   until length(s)=6;
  65.   w:=0;
  66.   for i:=1 to 6 do w:=w+ord(s[i]);
  67.   w:=w-($1a*(w div $1a));
  68.   w:=w+$41;
  69.   writeln;
  70.   writeln;
  71.   textcolor(white);
  72.   Writeln('        Your registration code is                   : BCD5-',chr(w)+s,'-CAM1');
  73.   writeln;
  74.   writeln('        (Use your own name/company)');
  75.   readkey;
  76.  
  77.   fadedown;
  78.   clrscr;
  79.   fadeup;
  80. end.
  81.