STAF(Z-axis move to Tool Change Position!)
MOVE(G90,Z#409,F#415);
STAF(Stop spindle & do orientation)
OUT-M53-M54;
PAUS1000
OUT+M59;
PAUS10
WAT+X27
OUT-M59+M66;
STAF(Tool Holder is fall down!)
     OUT+Y27-Y28
     G04 P500
     WAT-X04+X05
     G04 P1500
STAF(ATC Arm Take Tool!)
     OUT+Y29
     G04 P150
     WAT+X02
     G04 P50
     OUT-Y29
STAF(Spindle Loose Tool!)
     OUT+M49
     G04 P150
     WAT+X29
     G04 P1000
STAF(ATC Arm Exchange Tool!)
     OUT+Y29
     G04 P150
     WAT+X02
     G04 P40
     OUT-Y29
     G04 P150
STAF(Spindle Tighten Tool!)
     OUT-M49
     G04 P150
     WAT+X30
     G04 P150
STAF(ATC Arm back home!)
     OUT+Y29
     G04 P150
     WAT+X02
     G04 P50
STAF(Tool Holder is lift up!)
     OUT-Y27+Y28
     G04 P150
     WAT+X04-X05
STAF(Exchange Tool is Done!)
#411=#300-1
#412=#300-2
#413=#300-3
#414=#300-4
#415=#300-5
#416=#300-6
#417=#300-7
#418=#300-8
#419=#300-9
#420=#300-10
#421=#300-11
#422=#300-12
#423=#300-13
#424=#300-14
#425=#300-15
#426=#300-16
#427=#300-17
#428=#300-18
#429=#300-19
#430=#300-20
#431=#300-21
#432=#300-22
#433=#300-23
#434=#300-24
#435=#300-25
#436=#300-26
#437=#300-27
#438=#300-28
#439=#300-29
#440=#300-30
#441=#300-31
#442=#300-32
IF(-#411)THEN
#301=#400
ENDIF
IF(-#412)THEN
#302=#400
ENDIF
IF(-#413)THEN
#303=#400
ENDIF
IF(-#414)THEN
#304=#400
ENDIF
IF(-#415)THEN
#305=#400
ENDIF
IF(-#416)THEN
#306=#400
ENDIF
IF(-#417)THEN
#307=#400
ENDIF
IF(-#418)THEN
#308=#400
ENDIF
IF(-#419)THEN
#309=#400
ENDIF
IF(-#420)THEN
#310=#400
ENDIF
IF(-#421)THEN
#311=#400
ENDIF
IF(-#422)THEN
#312=#400
ENDIF
IF(-#423)THEN
#313=#400
ENDIF
IF(-#424)THEN
#314=#400
ENDIF
IF(-#425)THEN
#315=#400
ENDIF
IF(-#426)THEN
#316=#400
ENDIF
IF(-#427)THEN
#317=#400
ENDIF
IF(-#428)THEN
#318=#400
ENDIF
IF(-#429)THEN
#319=#400
ENDIF
IF(-#430)THEN
#320=#400
ENDIF
IF(-#431)THEN
#321=#400
ENDIF
IF(-#432)THEN
#322=#400
ENDIF
IF(-#433)THEN
#323=#400
ENDIF
IF(-#434)THEN
#324=#400
ENDIF
IF(-#435)THEN
#325=#400
ENDIF
IF(-#436)THEN
#326=#400
ENDIF
IF(-#437)THEN
#327=#400
ENDIF
IF(-#438)THEN
#328=#400
ENDIF
IF(-#439)THEN
#329=#400
ENDIF
IF(-#440)THEN
#330=#400
ENDIF
IF(-#441)THEN
#331=#400
ENDIF
IF(-#442)THEN
#332=#400
ENDIF
#50=#400
#400=#401
#401=#50
PAUS500 
OUT-M66
STAF()
RETURN;