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