Function            LOOPER()
Action              Emulate multiple reads with single reads
Returns
Category            Editing
Syntax              LOOPER(<array>)
Description         Allows a group of gets to be READ individually,
                    but appear to be a single READ.

                    This function allows complex functions to be called for
                    VALID which can use their own READs and not
                    interrupt a read stack. This can give the apparancy
                    of nested READs. Recursive calls to this function
                    can be done as well.

                    Each element of <array> is a delimited string of
                    row,col,get,picture,valid clause.
                    ( "row:col:getname:picture:valid"  )
Examples            .
                    *- first declare any called functions external
                    EXTERNAL YOURFUNC
                    *- initialize an array
                    private sayg[3]

                    *  initialize the memvars to be read - IMPORTANT
                    PHONE = space(14)
                    CHARGE = 0
                    NAME= SPACE(20)

                    *       column-|
                    *        row   | get name  picture       valid
                    *          |   |   |       |              |
                    sayg[1]="10:10:M->phone:(999)999-9999:!empty(m->phone)"
                    sayg[2]="11:10:M->charge:@K 99.99"
                    sayg[3]="12:10:M->name:!:YOURFUNC()"

                    LOOPER(m->sayg)


Found in (prg)......S_LOOP.PRG