equation:	'macro
	'exp	'parm

	'parm<-'argexp
	'if 	'operator('parm)'!="="
		'error	s,"The equation is in the wrong format"
		'exit
	'endif
	equgate	'right('parm),'left('parm)
	'endmacro