C  SELECTS DRAW DEVICE OR MODE
	SUBROUTINE CREATE(MODFIL)
	LOGICAL B1,B2,B3,B4,B5,B6,B7,B8,B9,B10,LP
	COMMON/LPEN/LP,IX,IY,IADRS
	COMMON/BOX/B1,B2,B3,B4,B5,B6,B7,B8,B9,B10
	COMMON/FILE/LYNUM,LINE(4,1)
	COMMON/BOOKKP/LINSAV(200),MODSAV(50),ITAG
	COMMON/COORD/JX,JY
	JX=500
	JY=500
C  SET UP SUB MENU
49	CALL SUBMEN(.TRUE.)
	CALL LITPEN(LP,IX,IY,IADRS)
C RESET 
	LP=.FALSE.
	B1=.FALSE.
10	IF(B1)GO TO 100
	IF(.NOT.LP)GO TO 10
	CALL SUBMEN(.FALSE.)
	IF((IX.GT.499).AND.(IY.LT.30))GO TO 100
	IF((IX.GT.299).AND.(IY.LT.30))GO TO 40
	IF((IX.GT.199).AND.(IY.LT.30))GO TO 30
	IF((IX.GT.99).AND.(IY.LT.30))GO TO 20
	GO TO 49
C
20	CALL POLY(MODFIL)
	GO TO 49
30	CALL PEN(MODFIL)
	GO TO 49
40	CALL DELETE(LINE,LYNUM,LINSAV,MODSAV,LP,IADRS,B1,ITAG)
	GO TO 49
100	CALL SUBMEN(.FALSE.)
	RETURN
	END