home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG099.ARC / BOX.I < prev    next >
Text File  |  1979-12-31  |  384b  |  10 lines
  1. Procedure PlotBox(BottomX,BottomY,TopX,TopY : Integer;
  2.                   F : Operation);
  3.  
  4. Begin
  5.   Plot(BottomX,BottomY,BottomX,TopY,F);
  6.   Plot(BottomX,TopY,TopX,TopY,F);
  7.   Plot(TopX,TopY,TopX,BottomY,F);
  8.   Plot(TopX,BottomY,BottomX,BottomY,F);
  9. End;
  10.