STATUSINFO(ִԶԵ!);
IF (+#387) THEN;
MOVE(G90,F#386,Z#382);
MOVE(G90,F#386,X#380,Y#381);
ENDIF;
#450=#5023;
#393=#390;
IF [#393 LE 1] THEN #393=1
IF [#393 GE 5] THEN #393=5
#392=0;
#400=0;
N88
MOVE(G90,F#383,Z#388,W-25);//#1925
PAUS160;
IF (+X25) THEN
MESSAGEBOX(:޷⵽Եź!)
ERREXIT;
ENDIF
MOVE(G90,F#384,Z#1929,W+25);
IF (-X25) THEN
MESSAGEBOX(:޷ѿԵź!)
ERREXIT;
ENDIF
#400=#400+#5023;
#393=#393-1;
#392=#392+1;
MOVE(G90,F#386,Z#450);
IF [#393 GE 1] GOTO88
#400=#400/#392;
#451=#400-#385-#389;
#452=#5080+1000;
#[#452]=#451*1000;
#452=#5080+1200;
#[#452]=[ABS(#451)+#391]*1000;
MOVE(G90,F#386,Z#450);
MESSAGEBOX(ԶԵɹ!)
RETURN;