	PROGRAM LINCNT
	INTEGER LINES
	LOGICAL*1 FILNAM(40)
	INPUT = 2
	LINES = 0
	TYPE 100
 100	FORMAT('$ENTER NAME OF FILE FOR LINE COUNT: ')
	ACCEPT 1000, FILNAM
 	CALL ASSIGN(INPUT,FILNAM,0)
 10	READ(INPUT,1000,END=20)
 1000	FORMAT(80A1)
	LINES = LINES + 1
	GOTO 10
 20	TYPE 2000, LINES, FILNAM
 2000	FORMAT('0 THERE ARE ',I4,' LINES IN ',40A1)
	STOP
	END
