&ACCESS RVP
DEF GripOpen ( )
Q_GripPosIndex=101
Q_GripPosCount=I_GripPosCountRet+1
IF Q_GripPosCount>1000 THEN
Q_GripPosCount=1
ENDIF
WAIT FOR (I_GripPosIndexRet==Q_GripPosIndex) AND (I_GripPosCountRet==Q_GripPosCount) AND I_GripOpen
END
