{Encode your email to hide it from spamming software}

uses crt, dos;
procedure AnalyzeCommandString;
	begin
	 if (ParamCount=0) then
           begin
                writeln;
                writeln('Email Encoder by Nick Kriukov, 2003');
                writeln;
                writeln('Usage: email <your email> <output file>');
                writeln;
           end
           else
               if (ParamCount>2) then
                  begin
                       writeln('Too many parameters');
                       halt(1);
                  end;
        end;

var
   email,path:string;
   f:text;
   i,l:integer;

begin
AnalyzeCommandString;
email:=ParamStr(1);
path:=ParamStr(2);
{readln(email);
{assign(f,GetEnv( 'temp' ) + ('\email.txt') );
rewrite(f);}
assign(f,path);
rewrite(f);
l:=length(email);
for i:=1 to l do
    begin
	write(f, '&#', ord( email[i] ), ';' );
    end;
close(f);
end.