(defun c:curstate()
(setq curplot(getvar "tilemode"))
(if (= 1 curplot)
		(progn
		(command	"-plot"
				"y"
				"model"
				"hplj5k_1.pc3"
				"tabloid"
				"inches"
				"landscape"
				"n"
				"extents"
				"fit"
				"center"
				"y"
				"half.ctb"
				"y"
				"n"
				"n"
				"n"
				"y"
		)
		)
)
(if (= 0 curplot)
		(progn
		(command	"-plot"
				"y"
				"layout1"
				"hplj5k_1.pc3"
				"tabloid"
				"inches"
				"landscape"
				"n"
				"extents"
				"fit"
				""
				"y"
				"half.ctb"
				"y"
				"n"
				"n"
				"n"
				"n"
				"n"
				"y"
		)
		)
)
)
cmddia
0
filedia
0
curstate
(setq curplot nil)
cmddia
1
filedia
1
quit
y