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