if (length($line) != 0)
		{
			if (/^\/\// or /^\/\*/ or /^\*/)
			{
				$comment = $comment + 1;
			}
			else
			{
				print "$line\n";
				$code = $code + 1;
			}
		}