movetolineno 1, 1;

	$SearchIn = input( "����������" );

	if( $SearchIn == "" )
		endmacro;
	
	$Search = "";

	#Pos = 0;
	while( #Pos < strlen( $SearchIn ) )
	{
		if( midstr( $SearchIn, #Pos, 1 ) == "(" ||
			midstr( $SearchIn, #Pos, 1 ) == ")" )
		{
			$Search = $Search + "\\";
		}
		$Search = $Search + midstr( $SearchIn, #Pos, 1 );

		#Pos = #Pos + 1;
	}

	$Search = "^.*" + $Search + ".*\\n";

	setclipboard "";

	searchdown $Search, regular;

	while( result )
	{
		selectline;
		appendcopy;
		searchdown $Search, regular;
	}