A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haeidp.ft

C	-+-+-+-+-+ \ e  H A E I D P . F T  \ e -+-+-+-+-+\r
C\r
C	PLOT THE ID OF THE CURRENT DATA SET IN THE BUFFER FILE 6 OR 7\r
C\r
	SUBROUTINE IDPLT\r
	INCLUDE HAEBUF.FI\r
	INCLUDE HAECSZ.FI\r
	INCLUDE HABRK.FI\r
	INCLUDE HAPPEN.FI\r
C\r
	IF (BREAK(11)) RETURN\r
	IF (SAMCNT.EQ.0) RETURN\r
	CALL STPLT\r
	CALL SYMBOL (0,YLEN*.5,XLEN/5.,LABEL,0,5)\r
	IF (BREAK(11)) RETURN\r
	CALL NUMBER (0,0,XLEN*.3,SETNUM,0,-1)\r
	CALL XYPLOT(38.,25.,PENUP)\r
	CALL EXPLT\r
	RETURN\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0