%@MACRO
#6010:=0;               
#6011:=0;              
M77;                    
WAIT();

G10 L2 P0 X0.Y0.Z0.;    
WAIT();

  IF ( @502 = #1036 ) THEN
     G90 G53 Z0.;
     M99;
  END_IF;

@201:=#1000;
@202:=#1004;    
@203:=#1036;    
@999:=1;        
WAIT();
M5;


IF(#1036=21)THEN GOTO 10;  
END_IF;

IF(#1036=22)THEN GOTO 20;  
END_IF;

IF(#1036=23)THEN GOTO 30;
END_IF;

IF(#1036=24)THEN GOTO 40;
END_IF;

IF(#1036=25)THEN GOTO 50;
END_IF;

IF(#1036=26)THEN GOTO 60;
END_IF;

IF(#1036=27)THEN GOTO 70;
END_IF;

IF(#1036=28)THEN GOTO 80;
END_IF;

IF(#1036=29)THEN GOTO 90;
END_IF;

IF(#1036=30)THEN GOTO 100;
END_IF;

IF(#1036=31)THEN GOTO 110;
END_IF; 

IF(#1036=32)THEN GOTO 120;
END_IF;

IF(#1036=33)THEN GOTO 130;
END_IF;

IF(#1036=34)THEN GOTO 140;
END_IF;

IF(#1036=35)THEN GOTO 150;
END_IF;

IF(#1036=36)THEN GOTO 160;
END_IF;

IF(#1036=41)THEN GOTO 410;
END_IF;

IF(#1036=42)THEN GOTO 420;
END_IF; 

IF ( @203 > 14 ) THEN GOTO 9000;              
END_IF;

IF ( @203 > 0 ) THEN GOTO 1000;             
END_IF;

IF @502<13 THEN                             
G94;                                      
M7;                                        
M46;                                      
WAIT();
T@502;                                    
G90 G53 G00 Z#26023 C#26024;              
M52;                                      
M50;                                      
WAIT();
@502:=@203;                               
G04X.3;
G90 G53 G00 Z0.;                              
M53;
WAIT();
G@201;                                  
G@202;                                   
@999:=0;                                 
M99;
END_IF;


IF @502=13 THEN        
WAIT();
M7;                    
M46;                  
M55;
M90;
G90 G53 G00 Z0.;                     
G90 G53 G00 X#26041 Y(#26042+130.) C#26044 ; 
M81;                     
G90 G53 G00 Z#26043;         
G91 G01 Y-130. F2000;    
M50;                     
@502:=@203;             
WAIT();
G04 X0.5;
G91 G01 Z30. F2000;
G90 G53 G00 Z0.;              
M7;
M56;
M91;
WAIT();
G@201;                 
G@202;                 
@999:=0;              
WAIT();
M99;                    
END_IF;


IF @502=14 THEN        
WAIT();
M7;                     
M46;                  
M55;
M90;
G90 G53 G00 Z0.;                    
G90 G53 G00 X#26061 Y(#26062-130.) C#26064;  
WAIT();
M81;                      
G90 G53 G00 Z#26063;          
G91 G01 Y130. F2000;    
M50;                      
WAIT();
@502:=@203;             
G04 X0.5;
G91 G01 Z30. F2000;
G90 G53 Z0.;             
M7;
M56;
M91;
WAIT();
G@201;                  
G@202;                  
@999:=0;               
WAIT();
M99;                   
END_IF;



N1000;
IF ( @502 > 0 ) THEN GOTO 2000;    
END_IF;


IF @203<13 THEN       
WAIT();
G94;                    
M7;                    
M46;                   
M50;                    
G90 G53 G00 Z0.;           
WAIT();
T@203;                
WAIT();
M52;                   
G90 G53 G00 Z#26023 C#26024;     
M51;                   
WAIT();
@502:=@203;             
G04 X0.5;
M53;                   
G@202;                  
M99;
END_IF;


IF @203=13 THEN     
WAIT();
M7;                     
M46;                   
M50;
M55;
M90;
G90 G53 G00 Z0.;                      
G90 G53 G00 X#26041 Y#26042 C#26044;  
WAIT();
M81;                      
G90 G53 G00 Z(#26043+30.);   
G91 G01 Z-30. F2000;
M51;                      
WAIT();
@502:=@203;             
G04 X0.5;
G91 G01 Y130.F2000;    
G90 G53 G00 Z0.;             
M7;
M56;
M91;
WAIT();
G@201;                  
G@202;                 
@999:=0;             
WAIT();
M99;               
END_IF;


IF @203=14 THEN    
WAIT();
M7;                     
M46;                  
M50;
M55;
M90;
G90 G53 G00 Z0.;                     
G90 G53 X#26061 Y#26062 C#26064;  
WAIT();
M81;                      
G90 G53 G00 Z(#26063+30.);   
G91 G01 Z-30. F2000;
M51;                      
WAIT();
@502:=@203;             
G04 X0.5;
G91 G01 Y-130. F2000;     
G90 G53 G00 Z0.;              
M7;
M56;
M91;
WAIT();
G@201;                  
G@202;                  
@999:=0;                
WAIT();
M99;                   
END_IF;

N2000;                 


IF @502<13 THEN                           
G94;                                      
M7;                                        
M46;                                       
WAIT();
T@502;                                    
G90 G53 Z#26023 C#26024;                         
M52;                                      
M50;                                     
WAIT();
@502:=0;                                  
G04 X.3;
G90 G53 Z0.;                              
WAIT();
END_IF;


IF @502=13 THEN         
WAIT();
M53;                    
M7;                     
M46;                   
M55;
M90;
G90 G53 G00 Z0.;                    
G90 G53 G00 X#26041 Y(#26042+130.) C#26044;  
WAIT();
M81;                      
G90 G53 G00 Z#26043;         
G91 G01 Y-130. F2000;    
M50;                      
WAIT();
@502:=0;                
G04 X0.5;
G91 G01 Z30. F2000;
G90 G53 Z0.;             
M7;
//M56;
M91;
WAIT();
END_IF;


IF @502=14 THEN        
WAIT();
M53;                  
M7;                     
M46;                   
M55;
M90;
G90 G53 G00 Z0.;                      
G90 G53 G00 X#26061 Y(#26062-130.) C#26064;  
WAIT();
M81;                    
G90 G53 G00 Z#26063;        
G91 G01 Y130. F2000;    
M50;                      
WAIT();
@502:=0;
G04 X0.5;
G91 G01 Z30. F2000;
G90 G53 G00 Z0.;              
M7;
//M56;
M91;
WAIT();
END_IF;



IF @203<13 THEN

WAIT(); 
M56;                   
M7;                     
M46;                    
M50;                    
G90 G53 G00 Z0.;           
WAIT();
T@203;                 
WAIT();
M52;                    
G90 G53 G00 Z#26023 C#26024;        
M51;                    
WAIT();
@502:=@203;             
G04 X0.5;
M53;                   
WAIT();
G@202;                  //
M99;
END_IF;


IF @203=13 THEN         
WAIT();
M53;                    
M7;                     
M46;                    
M50;
M55;
M90;
G90 G53 G00 Z0.;                     
G90 G53 G00 X#26041 Y#26042 C#26044;  
WAIT();
M81;                      
G90 G53 G00 Z(#26043+30.);  
G91 G01 Z-30. F2000;
M51;                      
WAIT();
@502:=@203;             
G04 X0.5;
G91 G01 Y130. F2000;    
G90 G53 Z0.;              
M7;
M56;
M91;
WAIT();
G@201;                  
G@202;                 
@999:=0;                
WAIT();
M99;                    
END_IF;


IF @203=14 THEN         
WAIT();
M53;                    
M7;                     
M46;                    
M50;
M55;
M90;
G90 G53 G00 Z0.;                      
G90 G53 G00 X#26061 Y#26062 C#26064;  
WAIT();
M81;                      
G90 G53 G00 Z(#26063+30.);   
G91 G01 Z-30. F2000;
M51;                      
WAIT();
@502:=@203;             
G04 X0.5;
G91 G01 Y-130. F2000;      
G90 G53 Z0.;              
M7;
M56;
M91;
WAIT();
G@201;                 
G@202;                  
@999:=0;               
WAIT();
M99;                   
END_IF;

                

N10 G10 L2 P0 X#12021 Y#13021;   
M88 B0;                        
M83;                            
M821;                             
#6011=1;                                
M99;

N20 G10 L2 P0 X#12022 Y#13022;    
M88 B0;                          
M83;                           
M822;                            
#6011=1;
M99;

N30 G10 L2 P0 X#12023 Y#13023;     
M88 B0;                          
M83;
M823;
#6011=1;
M99;

N40 G10 L2 P0 X#12024 Y#13024;
M88 B0;                          
M83;
M824;
#6011=1;
M99;

N50 G10 L2 P0 X#12025 Y#13025;
M88 B0;                          
M83;
M825;
#6011=1;
M99;

N60 G10 L2 P0 X#12026 Y#13026;
M88 B0;                          
M83;
M826;
#6011=1;
M99;

N70 G10 L2 P0 X#12027 Y#13027;
M88 B0;                          
M83;
M827;
#6011=1;
M99;

N80 G10 L2 P0 X#12028 Y#13028;
M88 B0;                          
M83;
M828;
#6011=1;
M99;

N90 G10 L2 P0 X#12029 Y#13029;
M88 B0;                          
M83;
M829;
#6011=1;
M99;

N100 G10 L2 P0 X#12030 Y#13030;
M88 B0;                         
M83;
M830;
#6011=1;
M99;

N110 G10 L2 P0 X#12031 Y#13031;
M88 B0;                          
M83;
M831;
#6011=1;
M99;

N120 G10 L2 P0 X#12032 Y#13032; 
M88 B0;                          
M83;
M832;
#6011=1;
M99;

N130 G10 L2 P0 X#12033 Y#13033;
M88 B0;                          
M83;
M833;
#6011=1;
M99;

N140 G10 L2 P0 X#12034 Y#13034;
M88 B0;                          
M83;
M834;
#6011=1;
M99;

N150 G10 L2 P0 X#12035 Y#13035;
M88 B0;                          
M83;
M835;
#6011=1;
M99;

N160 G10 L2 P0 X#12036 Y#13036;
M88 B0;                          
M83;
M836;
#6011=1;
M99;

N410 G10 L2 P0 X#12041 Y#13041;
G90 G53 Z0.;
M88 B0;                         
M83;
M84;
M85;
#6011=1;
M99;

N420 G10 L2 P0 X#12042 Y#13042;
G90 G53 Z0.;
M88 B0;                          
M83;
M84;
M86;
#6011=1;
M99;

N9000;
M30;