10 lines
261 B
Plaintext
10 lines
261 B
Plaintext
&ACCESS RV
|
|
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 |
