GrowFBox


Purpose   Draws an exploding box.

Decln.    GrowFBox(X1,Y1,X2,Y2,F,B,BoxType:Byte);

Remarks   X1, Y1 are the coordinates of the top left corner of the area to
          be changed.
          X2, Y2 are the lower right corner coordinates.
          F, B are the foreground and background colors.
          BoxType is a code to indicate the box type: 0 no box, 1 single
          line box, 2 double line box, 3 single top/bottom and double
          sides, 4 double top/bottom and single sides. If a box type in the
          range 5..255 is used, the box is drawn using the ASCII character
          represented by that number.

          The area of the display inside the Box border is cleared.

          If the box grows too quickly or too slowly, alter the global
          variable Speed. The default value is 200; increase the value to
          slow the speed (ugh!) or decrease it to speed the box up.

Example

BEGIN
    SPEED := 400;
    GROWFBOX(1,1,80,12,WHITE,RED,1);
    GROWFBOX(1,13,80,25,BLUE,LIGHTGRAY,2);
END;