$SAVE NOLIST

rq$c$get$char:  PROCEDURE( except$ptr ) BYTE EXTERNAL;

DECLARE except$ptr    POINTER;

END rq$c$get$char;

$RESTORE