STATUSINFO(ִRTCP׼ԶԵ!);
IF (+#387) THEN;
MOVE(G90,F#386,Z#382);
MOVE(G90,F#386,X#380,Y#381);
ENDIF;
#450=#5023;
#391=#390;
IF [#391 LE 1] THEN #391=1
IF [#391 GE 5] THEN #391=5
#392=0;
#400=0;
N88
MOVE(G90,F#383,Z#388,W+26);//#1925
PAUS160;
IF (-X26) THEN
MESSAGEBOX(:޷⵽Եź!)
ERREXIT;
ENDIF
MOVE(G90,F#384,Z#1929,W-26);
IF (+X26) THEN
MESSAGEBOX(:޷ѿԵź!)
ERREXIT;
ENDIF
#400=#400+#5023;
#391=#391-1;
#392=#392+1;
MOVE(G90,F#386,Z#450);
IF [#391 GE 1] GOTO 88
#400=#400/#392;
#398=#400;
MESSAGEBOX(RTCP׼ԶԵɹ!)
RETURN;