Click above to get retro games delivered to your door ever month!

IMPBOX()

    This function implodes a box previously drawn (and saved to an
    array) with EXPBOX().

    Syntax

    IMPBOX(<array> [, <speed>])

    Required Parameter

    <array> is the name of the array created by EXPBOX().  Do not
    surround it by quotes.  If you use a bogus array name, IMPBOX() will
    terminate immediately.  If you use an array that was not created
    with EXPBOX(), be prepared for unpredictable results. In such cases,
    you are encouraged to send us a print-screen of your wildest array
    misadventure.  Prizes will be awarded for originality.

    <speed> is a drug.  Do not give it to your children. However, your
    children might be interested to know that this is a numeric
    representing the delay factor to introduce into the implosion.
    Values between 2 and 100 are recommended, with 2 being the fastest
    and 100 being the slowest. The default is 25.

    Return Value

    Nope

    Notes

    The only way to use IMPBOX() is after you have called EXPBOX(). This
    function uses the array created by EXPBOX() and pops each array
    element onto the screen to create the illusion of imploding the box.
    (Ah yes, I just figured out where I have seen this trick before!
    Doesn't it remind you of those old films where the demolished
    buildings magically rise from the ground and are rebuilt? Or how
    about the one where the water leaps from the glass back into the
    faucet until the glass is empty? Eureka!)

    Clipper 5.0 Notes

    - It is no longer necessary to pass the name of an array.  A window
      stack is automatically maintained by the function.  Each time that
      you draw a box with EXPBOX(), the affected region of the screen
      will be added to the window stack.  Whenever you call IMPBOX(),
      it will use LIFO (last in, first out) logic to restore the previous
      screen.

    Sample Usage

    ** Summer '87                               
    EXPBOX(5, 10, 19, 59, 2, 10, '', 'boxarray')
    INKEY(0)                                    
    IMPBOX(boxarray, 50)                        

    ** Clipper 5.0              
    EXPBOX(5, 10, 19, 59, 2, 10)
    INKEY(0)                    
    IMPBOX(50)