Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/ETRAP8.ZIP/BLANKBOX.INC

Text File | 1987-12-26 | 367 b | 15 lines

(******************************************************************)

procedure blankbox(startrow,endrow,startcol,endcol,fg,bg:integer);

var
  st          :string[80];
  row         :integer;
begin
  st:=constr(' ',(endcol-startcol));
  for row:=startrow to endrow do
    begin
      scrwrite(st,startcol,row,fg,bg);
    end;
end;{procedure blankbox}