10	FUNCTION LONG F.SIZE(WORD FNO, WORD F.CR)
	%TITLE "WWWSIZ"
	%IDENT "X0.0"

	!
	! Subroutine to find out file size.
	!
	! (c) 2016 by Johnny Billquist
	!
	! X0.0	2016-03-11	Johnny Billquist
	!	Initial coding

	%INCLUDE "WWW.INC"

	DECLARE LONG S

	S = 0

	ON ERROR GOTO Hell

	WHILE 1
		GET #FNO
		S = S + RECOUNT
		S = S + 2 IF F.CR
	NEXT

	Done:
	RESET #FNO
	F.SIZE = S
	EXIT FUNCTION

	TooMany:
	ON ERROR GO BACK
	CAUSE ERROR 14

	Hell:
	ECNT = ECNT+1
	RESUME TooMany IF ECNT>10
	RESUME Done

	END FUNCTION