SUBROUTINE DRAW(X1,Y1,X2,Y2,ICOLOR,IBRKN)
	DATA ICOLNW,IBRKNW/1,0/
	IF(ICOLNW.EQ.ICOLOR) GOTO 10
	ICOLNW=ICOLOR
	CALL NEWPEN(ICOLOR)
 10	IF(ICOLNW.EQ.0) RETURN
	IF(IBRKNW.EQ.IBRKN) GOTO 20
	IBRKNW=IBRKN
	IF(IBRKN.EQ.0) CALL FULL
	IF(IBRKN.NE.0) CALL BROKEN(IBRKN)
 20	CALL POINT(X1,Y1)
	CALL JOIN(X2,Y2)
	ENTRY DRAWAL
	RETURN
	END