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

  EXPLODERT()                                                 Video Function
 Purpose..: Open / Close a window from the right to the left
-------------------------------------------------------------------------------
 Syntax...: ExplodeRt( <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>    = character string of the frame
                          such as that which has a double line top
                          and single line sides, e.g. "+-+|+-+| ".
            [<nDelay>]  = cycle delay for opening / closing the window.
                          A small number, say, 1 will open / close a
                          window fast whereas a high number,
                          say, 60 will result in a slower opening/ closing .

 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...: EXPRT.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)
        ImplodeRt( 4, 7, 22, 70, cSavScr, cFrame, nDelay)
        inkey(0)
        ExplodeRt( 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 bOpen() which,
            in turn is a junior version of wHowOpen(). The
            step-down nature of the functions is apparent.