home *** CD-ROM | disk | FTP | other *** search
-
- 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.
-