#imestate = imestate;
if (#imestate) imeswitch;
$filename=input("Input File Name","");
if (x == 0 && y == 0 && code == -1) #empty = 1;
if ($filename == "") endmacro;
if (strstr ( $filename, "\\") >= 0) {
	$path = $filename;
	openfile $path;
if (#template == 1 && x == 0 && y == 0 && code == -1) execmacro "texset.mac";
	endmacro;
}
#dotpos = strstr( $filename, "." );
#filelength = strlen( $filename );
if ( #dotpos < 0 ) {
	$path = getenv("HOME") + $filename;
} else {
	#extpos = #filelength - #dotpos;
	$ext = rightstr( $filename, #extpos );
     if( $ext == ".AWK" || $ext == ".awk" ) {
		$path = getenv("XTRPATH") + $filename;
		}
else if( $ext == ".BAT" || $ext == ".bat" ) {
		$path = "c:\\" + $filename;
		}
else if( leftstr($ext, 2) == ".C" || leftstr($ext, 2) == ".c" ) {
		$path = getenv("DATA") + $filename;
		}
else if( leftstr($ext, 2) == ".F" || leftstr($ext, 2) == ".f" ) {
		$path = getenv("DATA") + $filename;
		}
else if( $ext == ".MAC" || $ext == ".mac" ) {
		$path = hidemarudir + "\\" + $filename;
		}
else if( $ext == ".MAL" || $ext == ".mal" ) {
		$path = getenv("HOME") + $filename;
		#template = 1;
		}
else if( $ext == ".ORG" || $ext == ".org" ) {
		$path = getenv("HOME") + $filename;
		#template = 1;
		}
else if( $ext == ".SED" || $ext == ".sed" ) {
		$path = getenv("XTRPATH") + $filename;
		}
else if( $ext == ".TEX" || $ext == ".tex" ) {
		$path = getenv("HOME") + $filename;
		#template = 1;
		}
else if( $ext == ".XTR" || $ext == ".xtr" ) {
		$path = getenv("XTRPATH") + $filename;
		}
else if( $ext == ".PL" || $ext == ".pl" ) {
		$path = getenv("XTRPATH") + $filename;
		}
  else  $path = getenv("HOME") + $filename;
}
run "macserv.exe";
ddeinitiate "HideMacroServer", "FileService";
if( dderequest( "existfile " + $path) != "" ) #empty=0;
// ddeexecute "exit";
if (#empty==1) {
	changename $path;
} else {
	openfile $path;
}
if (#template ==1 && x == 0 && y == 0 && code == -1) execmacro "texset.mac";
if (#imestate) imeswitch;
endmacro;