	SUBROUTINE NPOS(M,I,J,IX,IY)
	IF(M.GT.8) GOTO 1
	I=M+1
	J=1
	IX=0
	IY=1
	GOTO 4
1	IF(M.GT.16) GOTO 2
	I=10
	J=M-7
	IX=-1
	IY=0
	GOTO 4
2	IF(M.GT.24) GOTO 3
	I=26-M
	J=10
	IX=0
	IY=-1
	GOTO 4
3	I=1
	J=34-M
	IX=1
	IY=0
4	RETURN
	END
