GrowFBox                                                       FastTTT



Purpose   To draw a box and clear the screen inside the box. This
          procedure is the functional equivalent to FBox, but the box
          grows (or explodes!) on the screen for a fancy visual
          effect.

Declaration    GrowFBox(X1,Y1,X2,Y2,F,B,Boxtype:integer);

          X1 is the top left X coordinate (1..79)
          Y1 is the top left Y coordinate (1..24)
          X2 is lower right X coordinate (2..80)
          Y2 is lower right Y coordinate (2..25)
          F is the foreground color (0..15)
          B is the background color (0..15)
          Boxtype is the box line type (see remarks)

Uses FastTTT.

Remarks   The normal values for the Boxtype are:
               1    Single line
               2    Double line
               3    Single top/bottom, double sides
               4    Double top/bottom, single sides

           If a BoxType of 0 is passed the the procedure will use a
           space (' ') as the box character. If any other number (i.e.
           5..256) is used the box is drawn using the ascii character
           represented by the number. Refer to page 568 of the Turbo
           Pascal Owner's Handbook to see the ascii table.

           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 down (ugh!) or decrease it to speed the
           box up.





Example


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