;;;MODE1.LSP
(setvar "modemacro"
	(strcat
		"L:$(substr,$(getvar,clayer),1,8)"
		"$(substr,        ,1,$(-,8,$(strlen,$(getvar,clayer)))) "
		"<.."
			"$(if,$(eq,$(getvar,dwgname),UNNAMED),"
			  "UNNAMED,"
			  "$(substr,$(getvar,dwgname),"
			    "$(-,$(strlen,$(getvar,dwgprefix)),7),"
			    "$(strlen,$(getvar,dwgname))"
			  ")"
			")"
		">"
		"$(if,$(getvar,orthomode), O, )"
		"$(if,$(getvar,snapmode), S, )"
		"$(if,$(getvar,tabmode), T, )"
		"$(if,$(and,$(=,$(getvar,tilemode),0),$(=,$(getvar,cvport),1)), P)"
	)
)