peek_char/2

"peek_char(+S, - C" ) is iso

If C is unbound, or is a character code, and the stream S is a binary stream, read the next byte from the current stream and unify the atom with C, while leaving the stream position unaltered.