if( $runnum < 1) {
		$cwd = Win32::GetCwd();
		$prgmdir = $cwd;
	#	$prgmpth = "$prgmdir\\";
		print "\nProgram thinks it is located in the following directory:\n";
		print "\t$cwd\n";
		print "if incorrect (PATH has spaces)!  Enter full path or return\n\n";
	  chomp ($prgmd = <STDIN>);
		if( $prgmd =~ /^([a-zA-Z];\\).+$/ ) {
			$prgmdir = $prgmd;
		}
		else {
			$prgmdir = $cwd;			
		}
		$prgmdir =~ /^(\w:).*/;
		$prgmdrv = $1 . ":";
	}