	SUBROUTINE DBOARD(I,J,ALPHA)
	LOGICAL*1 ALPHA,POS(4)
	IF(I.LT.1.OR.I.GT.10.OR.J.LT.1.OR.J.GT.10) RETURN
	POS(1)="33
	POS(2)="131
	POS(3)=32+J*2
	POS(4)=65+I*4
	IF(J.EQ.1) POS(3)=34
	IF(J.EQ.10) POS(3)=52
	IF(I.EQ.1) POS(4)=69
	IF(I.EQ.10) POS(4)=105
	WRITE(5,1) POS,ALPHA
1	FORMAT('+',4A1,X,A1,X)
	RETURN
	END
