CP/M/CPM_CDROM.iso/mbug/mbug099.arc/BOX.I

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

Procedure PlotBox(BottomX,BottomY,TopX,TopY : Integer;
                  F : Operation);

Begin
  Plot(BottomX,BottomY,BottomX,TopY,F);
  Plot(BottomX,TopY,TopX,TopY,F);
  Plot(TopX,TopY,TopX,BottomY,F);
  Plot(TopX,BottomY,BottomX,BottomY,F);
End;