&ACCESS RVO
DEF GripClose ( )
Q_GripPosIndex=102
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_GripClose
END
