SUBROUTINE GETREC(LUN,NUM)
	IMPLICIT INTEGER(A-Z)
	BYTE STRING
	COMMON/ULTIM/ULTIM
	COMMON/STRING/STRING(132),POINT,EPOINT
	DATA COUNT/0/
C
C	BEGIN EXECUTABLE CODE
C
	COUNT=COUNT+1
	DO 10 J=1,NUM
10	READ(LUN,100)EPOINT,STRING
100	FORMAT(Q,132A1)
	REWIND LUN
	IF(COUNT.LT.ULTIM)RETURN
	CALL UNDRLN
	CALL RANDOM(1,50,ULTIM)
	COUNT=0
	RETURN
	END