CALL KBINIT
	IYS=12
	CALL COLOR(1,8)
	CALL CLEAR
	CALL ANGLE(2)
	DO 10 IB=1,8
	   DO 10 IF=1,8
C	   IF(IF.EQ.IB)GOTO 10
           CALL COLOR(IF,IB)
           CALL APOS((IB*10)-9,IF*3-2+IYS)
	   CALL KBWR(10,'         ',"100)
           CALL APOS((IB*10)-9,IF*3-1+IYS)
           CALL KBWR(10,'  HELLO  ',"100)
           CALL APOS((IB*10)-9,IF*3+IYS)
           CALL KBWR(10,'         ',"100)
10	CONTINUE
	CALL APOS(0,0)
	CALL EXIT
	END