ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG099.ARC/FILL.I

Text File | 1979-12-31 | 384b | 11 lines

{$A-}
Procedure Fill(X,Y : Integer);
Begin
    Dot(X,Y,SetDot);
      if Point(X,Y + 1) = 0 then Fill(X, Y + 1);
      if Point(X + 1,Y) = 0 then Fill(X + 1, Y);
      if Point(X,Y - 1) = 0 then Fill(X, Y - 1);
      if Point(X - 1,Y) = 0 then Fill(X - 1, Y);
End;
{$A+}