%NOLIST
	REMARK	********************************************\
		*   REMARK SEARCH FOR END OF FILE ROUTINE  *\
		* ======================================== *\
		*  FILE LENGTH IN RECORDS IS PASSED BACK   *\
		* TO MAINLINE IN RECS%. INPUT VARIABLES:   *\
		*   I% = FILE ASSIGNMENT.  FILE MUST BE    *\
		* OPENED, WITH A FIXED RECORD LENGTH AND   *\
		* NO BUFFERING  ('BUFF' PARAMETER)	   *\
		********************************************

1150	RECS%=0
	IF END #I% THEN 1151

	FOR F%=14 TO 1 STEP -1
	READ #I%,(2^F%)+RECS%;LINE X$
	RECS%=RECS% + 2^F%
1151	NEXT F%

	RETURN