?? TITLE := 'CYBIL RECORD PADDING MODULE' ??
MODULE bam$pad_record;
?? PUSH (LISTEXT := ON) ??
*copyc amt$max_record_length
*copyc osd$virtual_address
*copyc amt$max_block_length
?? POP ??

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

    VAR
      i: integer,
      wsa: ^array [1 .. amc$maximum_block] of char;

    wsa := #LOC (working_storage_area^);
    FOR i := 1 TO pad_length DO
      wsa^ [i] := padding_character;
    FOREND;

  PROCEND bap$pad_record;
?? OLDTITLE ??
MODEND bam$pad_record;
