Same as Nantucket/CA supplied AComp() but without the bugs
──────────────────────────────────────────────────────────────────────────────

 Syntax

         GT_aComp(<aArray>, <bComp>, <nStart>, <nStop>) --> nPos

 Arguments:

       <aArray>   - the array to compare
       <bComp>    - the comparison block
       <nStart>   - the element at which to start
       <nStop>    - the element at which to stop

 Returns:

       nPos       - the position of the element in the array which
                    satisfies <bComp>

 Description:

       Same as Nantucket/CA supplied AComp() but without the bugs

 Examples:

 Source: ACOMP.PRG

 Author:  Andy M Leighton