Read character from current input stream without removing it.
Description
peek_char( -character )
peek_char(Char) reads the next character from the current input stream without removing it nor modifying the stream's position or the end-of-file status and unifies it with Char.