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

  ROTATOR()                                                  Screen Function
 Purpose..: Display a rotating status indicator
-------------------------------------------------------------------------------
 Syntax...: Rotator( <nX>, <nY>, <cClr> [, <aType>] ) --> NIL

 Arguments: <nX>       = top row.
            <nY>       = left column.
            <cClr>     = color attribute.
            [<aType>]  = rotator constant.
                         You can use those below or pass your own
                         version such as:
                            { ".", ".", ".", "." }

            Rotator Manifest Constant as found in FW_BOX.CH
            --------------------------------------------------------
            FW_BOX.CH         Description
            --------------------------------------------------------
            R_SPIN            { "-", "\", "|", "/" } is the default
            R_STAR            { ".", ".", ".", "*", "." }
            --------------------------------------------------------

 Returns..: NIL

 Source...: ROTATOR.PRG
-------------------------------------------------------------------------------
 Example..: The example displays a rotating image waiting for a
            keypress. R_SPIN is specified. Looking at Rotator() as a movie,
            the displayed frames would be as follows:
            -   \   |   /   -   \   |   /   -
            1   2   3   4   5   6   7   8   9   etc...

               local nKey := 0
               while empty( nKey )
                   nKey := inkey( .8 )
                   Rotator( 10, 10, "W+/R", R_SPIN )
               enddo