{<<<< GBox >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 17.4 -- Last mod 2/1/86   }

PROCEDURE GBox(X,Y,W,H,Lines,Color : Integer);

VAR
  I,Inc : Integer;

BEGIN
  FOR I := 1 TO Lines DO
    BEGIN
      Inc := (I-1) * 2;
      Draw(X+Inc,Y+Inc,X+W-Inc,Y+Inc,Color);
      Draw(X+Inc,Y+H-Inc,X+W-Inc,Y+H-Inc,Color);
      Draw(X+Inc,Y+Inc,X+Inc,Y+H-Inc,Color);
      Draw(X+W-Inc,Y+Inc,X+W-Inc,Y+H-Inc,Color);
    END;
END;
