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

 twAMsgInit( Type, mColor, aArea)
 ----------------------------------------------------------------------------
     Initializes the default colours of the TSDWIN message functions:

                 twInfoLine()
                 twWarnLine()

     If this function is not called before using the message functions,
     the colours are initialized by TSDWIN to "w+/n,n/w,,,w/n".

     The aArea parameter allows passing a two dimensional array with
     the start and end lines of the screen area to be reserved for area
     messages.

     The SAME AREA is used by all messages in this class.


       Arguments:

     Type   - 'N' 1 - for twInfoLine()
                  2 - for twWarnLine()
                  - NIL If you want to pass an array of colours.

     mColor - 'C' Clipper Colour String, if Type is passed.

            - 'A' A 2-d array, one element for each of the area message
                  function colours.

              The default colours are monochrome.

     aArea  - 'A' { Start Row, End Row } of message area.

                              NOTE

     With this version of TSDWIN, ONLY ONE LINE MESSAGES ARE
     ALLOWED!!!!!

       Return:

     If an array was passed, the function returns a null string. If a
     single message type was initialized, the function returns the
     current colour setting. It can therefore be used in the same way
     as any other Clipper state function, to Get/Set the current value.

       Example:

     mVar := twAMsgInit( 1, "w+/b,gr+/r,,,n/w" )
     ............
     twInfoLine( etc. ...
     Some Code
     ............
     twAMsgInit( 1, mVar )

     Save the message area colour and set it. Write a message in the
     new colour then restore the colour for the next message display.