C  SET UP DEVICE MENU
	SUBROUTINE SUBMEN(L)
	LOGICAL L
	DATA A,B/5H(1X4H,5HPOLY)/
	DATA C,D/5H(1X3H,5HPEN) /
	DATA E,F/5H(1X3H,5HDLT) /
	DATA G,H/5H(1X4H,5HSAVE)/
	IF(.NOT.L)GO TO 50
	CALL TEXT(100,01,6,1,A)
	CALL TEXT(200,01,6,1,C)
	CALL TEXT(300,01,6,1,E)
	CALL TEXT(600,01,6,1,G)
	GO TO 100
50	CALL TEXT(100,10,0,1,A)
100	RETURN
	END