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

 GET a Memo Field
------------------------------------------------------------------------------

 Syntax

            @ <row>, <col> GET <memo> MEMO COORD <coords> ;
         BOXCOLOR <bcolor> TITLE <title>

 Arguments:

      Standard Get parameters +
                coords  - array of 4 elements Top,left,bottom,right of MemoEdit Box
                bcolor  - color of MemoEdit Box (optional)
                title   - title of Memoedit Box (optional)

 Returns:

      Updated Get:buffer

 Description:

      To allow a standard GET/Read on a Memo field.
                displays MEMO/memo at the <row>, <col> position depending
                if the memo field has anything in it.
                Control_Page_Down to enter the Memo reader
                Allows all standard features of get system eg WHEN,VALID
                if get COLOR is used this will be used for the MEMO/memo

                REQUIRES GT_Cent() if the TITLE option is used

 Examples:

PROCEDURE TestMemo()
        LOCAL GetList := {}
        LOCAL mNotes

        CLS
        mNotes := "This is the default memo string at entry to the GET."

        @ 4,0 SAY "Notes:"
        @ 4,10 GET mNotes MEMO COORD {5, 10, 15, 50} ;
                                                                BOXCOLOR "W+/B,GR+/B" TITLE 'Test'
        READ

        ? mNotes
        RETURN

 Header File: GT_Memo.ch

 Source: GT_RMEMO.PRG

 Author:  Niall Scott