M36;//ڵʱͣ
   STATUSINFO()
   OUT+M28-M29;//           +M73-Y24
   WAT+X05;//ȴ⵽λ        +T06
   M36;//ڵʱͣ
   STATUSINFO(ִл)
   CHOOSET(1,TS0);//ѡToolSeat[0]
   IF (+M13) THEN
   MESSAGEBOX(:ǰе,޷鵶!)
   ERREXIT;//˳
   ENDIF
   M36;//ڵʱͣ
   MOVE(G91,F5000,Y115);//Y
   M36;//ڵʱͣ
   STATUSINFO(ջصɿ)
   OUT-M28+M29;//ջص          +Y24-M73
   OUT+M49;//ɿ              +M10
   WAT+M42;//ȴɿߵλ      +T02
   WAT+M31;//ȴջص⵽λ      +T07
   PAUS300;//ͣ0.3
   M36;//ڵʱͣ
   STATUSINFO()
   OUT+M28-M29;//         +M73-Y24
   WAT+M30;//ȴ⵽λ     +T06
   M36;//ڵʱͣ
   MOVE(G91,F5000,Y-115);//Y½
   STATUSINFO(ѡ)
   CHOOSET(1,TAIM);//ѡBlock[i].Tool
   M36;//ڵʱͣ
   MOVE(G91,F5000,Y115);//Y
   M36;//ڵʱͣ
   STATUSINFO(ջصͼн)
   OUT-M28+M29;//ջص        +Y24-M73
   OUT-M49;//н           -M10
   WAT+M15;//ȴнߵλ  +T05
   WAT+M31;//ȴջص⵽λ  +T07
   PAUS300;//ͣ0.3
   M36;//ڵʱͣ
   STATUSINFO()
   OUT+M28-M29;//     +M73-Y24
   WAT+M30;//ȴ⵽λ  T06
   M36;//ڵʱͣ
   MOVE(G91,F5000,Y-115);//Y½
   M36;//ڵʱͣ
   STATUSINFO(ջص)
   OUT-M28+M29;//ջص     +Y24-M73
   #300=0
   N10
   #300=#300+1
   #302=#300-500
   IF (-#302)THEN
   OUT+M84
   GOTO20
   ENDIF
   PAUS10
   #301=#1800
   #301=#301 AND 64
   IF(-#301)THEN
   GOTO10
   ENDIF   ;//ȴջص⵽λ  +T07
   N20
   OUT-M29
   RETURN;//
