! wc - Count pages, lines, words, characters in file

      program wc

      character*10 file               ! TOPS-10 file name (XXXXXX.XXX)
      character c
      integer pages, lines, words, characters

      open (0, file=file)
      type *, 'Enter file name:'
      accept 10, file
10    format (a10)
!      open (0, file=file)
      pages = 0
      lines = 0
      words = 0
      chars = 0

      type 20, pages, lines, words, chars, file
20    format (4(i3,x),a10)
      stop
      end
  