LOGICAL*1 IBUF(20)
        DATA IBUF/30,10,159,20,150,40,159,50,159
	1,60,159,70,159,80,150,5*0/
	CALL KBINIT
	CALL INIT
	CALL XGRAPH(IBUF)
	END