identification division.
       program-id. text-stats.

       environment division.
       input-output section.
       file-control.
       select input-file assign to "text.txt"
              organization is line sequential.
       select output-file assign to "out.txt"
              organization is line sequential.

       data division.
       file section.
       fd input-file.
       01 sample-input      pic x(80).
       fd output-file. 
       01 output-line       pic x(80).

       working-storage section.
       77  eof-switch       pic 9        value 1.
       77  exit-switch      pic 9.
       01  no-of-sentences  pic s9(7)    comp.
       01  no-of-words      pic s9(7)    comp.
       01  no-of-characters pic s9(7)    comp.
       01  k                pic s9(2)    comp.
       01  input-area.
           02 line1         pic x        occurs 80 times.
       01  output-title-line.
           02  filler        pic x(31)    value spaces.
           02  filler        pic x(19)    value "input text analyzed".
       01 output-underline.
           02  filler        pic x(41)    
                    value " ----------------------------------------".
           02  filler        pic x(40)    
                    value "----------------------------------------".
       01 output-area.
           02  filler        pic x        value space.
           02  out-line      pic x(80).
       01 output-statistics-line-1.
           02  filler        pic x(20)    value spaces.
           02  filler        pic x(20)    value "number of sentences=".
           02  out-no-senten pic -(7)9.
       01 output-statistics-line-2.
           02  filler        pic x(19)    value spaces.
           02  filler        pic x(33)    value "number of words=".
           02  out-no-word  pic -(7)9.
       01 output-statistics-line-3.
           02  filler        pic x(19)    value spaces.
           02  filler        pic x(33)    value "number of chars=".
           02  out-no-char  pic -(7)9.
       01 output-statistics-line-4.
           02  filler        pic x(19)    value spaces.
           02  filler        pic x(33)    
                    value "average number of words/sentence=".
           02  aver-words-se pic -(4)9.9(2).
       01 output-statistics-line-5.
           02  filler        pic x(20)    value spaces.
           02  filler        pic x(31)    
                    value "average number of symbols/word=".
           02  aver-char-wor pic -(4)9.9(2).

       procedure division.
       open input input-file, output output-file.
       move 2 to exit-switch.
       perform proc-body until exit-switch is equal to 3.

       proc-body.
       move zeroes to no-of-sentences, no-of-words, no-of-characters.
       move 81 to k.
       write output-line from output-title-line after advancing 0 lines.
       write output-line from output-underline after advancing 1 line.
       move 2 to exit-switch.
       perform outer-loop until exit-switch is equal to zero.

       outer-loop.
       read input-file into input-area at end perform end-of-job.
       move input-area to out-line.
       write output-line from output-area after advancing 1 line.
       subtract 80 from k.
       perform new-sentence-proc until exit-switch is equal to zero 
        or k is greater than 80.

       new-sentence-proc.
       move 2 to exit-switch.
       if line1(k) is not equal to "/"
           perform process-loop
           until k is greater than 80 or exit-switch is less than 2
       else perform output-statistics-proc.

       output-statistics-proc.
       move no-of-sentences to out-no-senten.
       move no-of-words to out-no-word.
       move no-of-characters to out-no-char.
       divide no-of-sentences into no-of-words
           giving aver-words-se rounded.
       divide no-of-words into no-of-characters
           giving aver-char-wor rounded.
       write output-line from output-underline after advancing 1 line.
       write output-line from output-statistics-line-1 after advancing 1 line.
       write output-line from output-statistics-line-2 after advancing 1 line.
       write output-line from output-statistics-line-3 after advancing 1 line.
       write output-line from output-statistics-line-4 after advancing 1 line.
       write output-line from output-statistics-line-5 after advancing 1 line.
       write output-line from output-underline after advancing 1 line.
       move zero to exit-switch.

       process-loop.
       if line1(k) is equal to space
           add 1 to no-of-words
           add 1 to k
       else if line1(k) is not equal to "."
               add 1 to k
            if line1(k) is not equal to "," 
                if line1(k) is not equal to ";" 
                   if line1(k) is not equal to "-" 
                      add 1 to no-of-characters
                   else
                      next sentence
                else
                   next sentence
             else next sentence
       else add 1 to no-of-sentences
            add 1 to no-of-words
            add 3 to k
            move 1 to exit-switch.

       end-of-job.  
       close input-file, output-file.

       stop run.