	SUBROUTINE DSTARS(NA,ID,J)
C	PRINTS OUT CURRENT STAR POSITIONS.
	DIMENSION ID(8,2)
	LOGICAL*1 ALPHA,POS(4)
	ALPHA='#'
	IF(J.EQ.1) ALPHA='*'
	POS(1)="33
	POS(2)="131
	DO 2 I=1,NA
	POS(4)=66+4*ID(I,1)
	POS(3)=32+2*ID(I,2)
	IF(J.EQ.2) GOTO 3
	WRITE(5,1) POS,ALPHA
	GOTO 2
3	POS(4)=POS(4)-1
	WRITE(5,4) POS
	POS(4)=POS(4)+2
	WRITE(5,5) POS
2	CONTINUE
1	FORMAT('+',4A1,A1)
4	FORMAT('+',4A1,'(')
5	FORMAT('+',4A1,')')
	RETURN
	END
