{ PADSTRING Pads a string out to the indicated blanks using spaces, since Pascal/Z now justifies string to the right. If length(str) equals or exceeds the requested size no action is taken. Requires the following gobal declarations: TYPE string255 = string 255; byte = 0..255; } PROCEDURE padstr (VAR str : string255; size : byte); VAR count : byte; begin if (length(str) < size) then for count := succ(length(str)) to size do append (str,' ') end;