Patent Alchemy's mission is to prepare and or prosecute patent applications

 

 

 

 

 

 

 

 

 Got Patent?

    Need Patent Help?

    Are you an inventor and asking:

How do I register?

How do I patent my invention?

How do I engineer my way around the US Patent Office?

How can I avoid paying patent attorney prices and still get professional assistance?

 

    You have questions we have solutions.

 

  Join the inventor class, contact PatentAlchemy@Yahoo.com

for some good solid answers

 

 

Company Mission            

 

  Patent Alchemy's mission is to prepare and or prosecute patent applications in the fields including : 

| Electrical | Software | Business Models | Internet | Optical | Device Components | Mechanical | Physics |  

 

 

 

Services Provided

 

  • Technical Feasibility and Associated Factors

  • Patentability and PTO requirements

  • Patent Applications and Provisional Patents

  • Prior Art Searches and  Patent Prosecution

  • Appeals, Consulting and Brainstorming

 

 

US PTO Reg. No 52923  No charge for initial consultation and cost quotation at realistic rate of $90/hour

 

 

We are located in and service the Santa Cruz, Central Coast and Silicon Valley areas.

 

Please contact us at  PatentAlchemy@Yahoo.com 

 

                                               or   831-685-2446, cell: 831-251-0202

 

 

 

 

                                                #!/usr/bin/perl ############################################################################## # Hit Counter Version 1.0.0 # # Created 10/16/02 Last Modified 10/16/02 # ############################################################################## # hitcounter.cgi # # parameters: returns: # none none # # History: # Provides a Hit Counter in conjuction with WSCO. # # Date: Initials: Defect#: Comments: # 2002-10-16 SMS N/A creator # 2002-11-12 GJK Modified to use images from WSC counter # and to get style from query string. ############################################################################## ############################################################# ### Counter Data File Location:############################## $imageStyle = "s1"; $serverPath = "http://plugins.websitecomplete.com/wsc_images"; $docroot = $ENV{'DOCUMENT_ROOT'}; if ($docroot eq '') { $docroot = ".." }; $countfile = "$docroot/plugin_data/hitcount.txt"; $digits = 8; if($ENV{"REQUEST_METHOD"} =~ /^get/i) { $DATA = $ENV{"QUERY_STRING"}; @Fields = split(/&/, $DATA); foreach $_ (@Fields) { ($name, $val) = split(/=/, $_); $val =~ tr/+/ /; $val =~ s/\%([0-9a-f]{2})/chr(hex($1))/egi; $Form{$name} = $val; } $DATA = $ENV{"HTTP_COOKIE"}; @Fields = split(/; /, $DATA); foreach $_ (@Fields) { ($name, $val) = split(/=/, $_); $Cookie{$name} = $val; } } $imageStyle = $Form{"ImageStyle"}; $initial_value = int($Form{"Init"}); $BgColor = "#$Form{'BgColor'}"; if ($Form{'mode'} eq '2') { &PrintCookie; } else { print "Content-type: text/html\n\n"; if ($Cookie{$Form{'ID'}} ne "true") { &AddCount; } &PrintCount; } #while (($k, $_) = each %ENV) #{ # s/(['\\])/\\$1/g; # print "\$ENV{'$k'} = '$_';
\n"; #} sub PrintCookie { print "Content-type:image/gif\n"; $exprtn = ""; $value = "$Form{'ID'}=true;"; print "Set-Cookie: $value path=/; $exprtn\n\n"; $giffile = "$docroot/images/spacer.gif"; undef $/; open(F,"< $giffile") or die $!; print ; close(F); } sub PrintCount { $ThisPage = $Form{'ID'}; open(FILE, "$countfile"); @Data = ; close(FILE); # Print the image to use to generate a cookie print "

"; print ""; foreach $Match (@Data) { chop($Match); ($count, $url) = split(/::/, $Match); if ($url eq $ThisPage) { $hits = $count; last; } } @nums = split(//, $hits); $cnt = $digits - int(@nums); $printcount = ""; while ($cnt > 0) { $printcount="$printcount"; $cnt--; } $end1 = ""; $end2 = ""; if ($imageStyle ne 's1') { $end1 = ""; $end2 = ""; } foreach $CountNr (@nums) { $printcount = "$printcount"; } print "$end1$printcount$end2"; print "

"; } sub AddCount { $ThisPage = $Form{'ID'}; open(COUNTS, "+<$countfile") or open(COUNTS, "+>$countfile") or print("Cannot open counts file: $!"); while () { chop; ($count, $file, $initialcount) = split(/::/, $_); $counts{$file} = $count; $initial{$file} = $initialcount; } $counts{$ThisPage}++; if ($initial{$ThisPage} ne $initial_value) { $counts{$ThisPage} = $initial_value; $initial{$ThisPage} = $initial_value; } seek(COUNTS, 0, 0); foreach $file (keys %counts) { print COUNTS $counts{$file}, "::", $file, "::", $initial{$file}, "\n"; } close(COUNTS); }

 

 

                                       

About Us

Starfield Technologies