	SUBROUTINE BOARD
	COMMON IB(10,10),IA(8,2),IC(8,2),NA,IS1,IS2,CHAR,CLEAR
	LOGICAL*1 CLEAR(6),IB
	WRITE(5,1) CLEAR
1	FORMAT(X,6A1//
     CT39,'     1   2   3   4   5   6   7   8'/
     CT39,'    -------------------------------'/
     CT39,'32 | -   -   -   -   -   -   -   - | 9'/
     CT39,'   |                               |'/
     CT39,'31 | -   -   -   -   -   -   -   - | 10'/
     CT39,'   |                               |'/
     CT39,'30 | -   -   -   -   -   -   -   - | 11'/
     CT39,'   |                               |'/
     CT39,'29 | -   -   -   -   -   -   -   - | 12'/
     CT39,'   |                               |'/
     CT39,'28 | -   -   -   -   -   -   -   - | 13'/
     CT39,'   |                               |'/
     CT39,'27 | -   -   -   -   -   -   -   - | 14')
	WRITE(5,2)
2	FORMAT(T39,'   |                               |'/
     CT39,'26 | -   -   -   -   -   -   -   - | 15'/
     CT39,'   |                               |'/
     CT39,'25 | -   -   -   -   -   -   -   - | 16'/
     CT39,'    -------------------------------'/
     CT39,'    24  23  22  21  20  19  18  17')
	RETURN
	END
