home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / HQ_WATER.ZIP / BACKGRND.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-13  |  233b  |  21 lines
  1.  
  2. UNIT BACKGRND;
  3.  
  4. interface
  5.  
  6. uses Global;
  7.  
  8.   procedure InitBackground;
  9.  
  10. implementation
  11.  
  12. procedure InitBackground;
  13. var  y : integer;
  14. begin
  15.    for y := 0 to (200-NY) do
  16.       FillChar( B^[y], 320, y+1 );
  17. end;
  18.  
  19. END.
  20.  
  21.