  PROCEDURE [XREF] pup$display_integer (descriptor: string ( * <= 256 );
        number: integer;
     var status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc OST$STATUS
?? POP ??
