  PROCEDURE [INLINE] rmp$log_debug_integer
    (    message: string ( * );
         integer_value: integer);

    VAR
      line: string (80),
      length: integer;

    IF rmv$tape_debug_mode THEN
      STRINGREP (line, length, message, integer_value);
      rmp$log_debug_message (line (1, length));
    IFEND;
  PROCEND rmp$log_debug_integer;

?? PUSH (LISTEXT := ON) ??
*copyc rmp$log_debug_message
*copyc rmv$tape_debug_mode
?? POP ??

