Read character code from input stream without removing it.
Description
peek_code( +stream, -character_code )
peek_code(Stream, Code) reads the next character code from the input stream Streamwithout removing it nor modifying the stream's position or the end-of-file status and unifies it with Code.