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

  IMPLODE()                                                   Video Function
 Purpose..: Close / Open a window from the edges to the center
-------------------------------------------------------------------------------
 Syntax...: Implode( <nTR>, <nLC>, <nBR>, <nRC>,
                       <cScreen>, <cFrame> [, <nDelay>] ) --> NIL


 Arguments: <nTR>       = top row.
            <nLC>       = left column.
            <nBR>       = bottom row.
            <nRC>       = right column.
            <cScreen>   = saved screen segment under the window.
            <cFrame>    = nine character frame type. You
                          can use any combination of framing
                          characters as in the example below.
            [<nDelay>]  = cycle delay for shuting / opening the window.
                          A small number, say, 1 will shut / open a
                          window fast whereas a high number,
                          say, 60 will result in a slower closing/ opening .

 Returns..: NIL

 Remark...: The delay rate is not hardware-related. Rather it is a
            sliding scale to allow you to vary the delay in closing
            or opening. A rate of, say, 30, will be no faster
            on a '486 than it would be on a '286 machine.

 Source...: IMPLODE.C
-------------------------------------------------------------------------------
 Example..: The example is a segment of code to demonstrate
            the function along with its companion. It draws a
            frame with a double line top & bottom and single line
            sides in high white on red.

        local cFrame  :=  "+-+|+-+| "
        local cSavScr := savescreen( 4, 7, 22, 70)
        local nDelay  := 35
        setcolor("W+/R")
        @ 4, 7, 22, 70 box cFrame
        inkey(0)
        Implode  ( 4, 7, 22, 70, cSavScr, cFrame, nDelay)
        inkey(0)
        Explode  ( 4, 7, 22, 70, cSavScr, cFrame, nDelay)

 Note.....: You can see that the frames cannot be addressed
            by name. There are no features such as titles, color
            choices, shadows or text display conveniences.
            You should think of this function, along with its
            companion, as a junior version of bClose() which,
            in turn is a junior version of wHowClose(). The
            step-down nature of the functions is apparent.