Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/xhair.for
There is 1 other file named xhair.for in the archive. Click here to see a list.
	CALL PLOTS(IERR,'TTY')
100	CALL XHAIRS(X,Y,LETTER)
	CALL PLOT(X,Y,2)
	IF(LETTER.NE.'X') GOTO 100
	CALL PLOT(X,Y,999)
	END