get_code/[1,2] [ISO]get_code(-Code)
get_code(+Stream, -Code)
Unifies Code with the next code from Stream or with -1 if there are no more characters.
Valid input text stream,
defaults to the current input stream.
Stream errors (see ref-iou-sfh-est), plus:
permission_error