getc: Get Next Character from stdin

The function is called by:

Example: getc gets each character from the keyboard; note the Control-D (^D):

    character char
    INTEGER*4 getc, status
    status = 0
    do while ( status .eq. 0 )
        status = getc( char )
        write(*, '(i3, o4.3)') status, char
    end do
    end

After compiling, a sample run of the above source is:

demo% a.out
ab            Program reads letters typed in 
^D               terminated by a CONTROL-D.
0 141         Program outputs status and octal value of the characters entered
0 142            141 represents 'a', 142 is 'b'
0 012            012 represents the RETURN key
-1 012        Next attempt to read returns CONTROL-D
demo% 

For any logical unit, do not mix normal FORTRAN input with getc().