program hello
    character(len=200) :: line
    integer :: n, ios

    n = 0
    do
        read(*, '(A)', iostat=ios) line
        if (ios /= 0) exit
        n = n + 1
    end do

    print*, "File contains ", n, "commands"
end program Hello