
  PROCEDURE [INLINE] i#fill
    (    fill_char: char;
         destination: ^cell;
         length: 0 .. 7FFFFFFF(16));

?? PUSH (LISTEXT := ON) ??

    VAR
      str: ^string (65535),
      t: string (256);

?? PUSH (CHKRNG := OFF, CHKSUB := OFF) ??
    t ($INTEGER (' ') + 1) := fill_char;
    str := destination;
    #TRANSLATE (t, '', str^ (1, length));
    #SPOIL (str^);
?? POP ??

  PROCEND i#fill;
?? POP ??
