#	denna procedur editerar fil enligt miparam och saetter mifile till
#	detsamma, om miparam inte innehaaller naagit editeras mifile
#	exempel paa laemplig alias:
#	alias m 'set miparam="\!*";source /z/bin/edt'
onintr	slut
if ($term == "ju") then
	echo -n "\0233=\0233[?1h"
	echo -n "\0233)B\0233(0"
endif
if (-e ".mifile") then
	set mifile = "`cat .mifile`"
else
	if ($?mifile == 0) then
		set mifile = ""
	endif
endif
if ($?miparam == 0) then
	set miparam = $argv
endif
if ("$miparam" == "") then 
	echo $mifile
else
	set mifile="$miparam"
endif
if ($mifile != "") then
	echo $mifile >.mifile
endif
mivt100 $mifile
slut:
if ($term == "ju") then
	echo -n "\0233>"
endif