get_code/1

"get_code(- C" ) is iso

If C is unbound, or is the code for a character, and the current stream is a text stream, read the next character from the current stream and unify its code with C.