
  PROCEDURE [XREF] bap$pad_record
    (    working_storage_area: ^cell;
         pad_length: amt$max_record_length;
         padding_character: char);

?? PUSH (LISTEXT := ON) ??
*copyc amt$max_record_length
?? POP ??
