*! notefile -- change the current notefile                      STB-14: os10
*! version 1.0.0     February 17, 1993     Bill Rising
program define notefile
version 3.0
	if "`*'"=="" {
		if "$S_NOTE"=="" { di in gr "No notefile has been specified.  The default is " in ye "notes.not" in gr "."}
		else {
			if (index("$S_NOTE","\") | index("$S_NOTE","/") | index("$S_NOTE",":")) { local cwd "." }
			else { local cwd " in the current directory." }
			di in gr "The notefile is " in ye "$S_NOTE" in gr "`cwd'"
		}
	}
	else {
		if index("`*'",".") { mac def S_NOTE = "`*'" }
		else { mac def S_NOTE = "`*'.not" }
	}
end