%@MACRO;
@660 := 200; //length
@661 := 200; //width
@662 := 100; //len slot
@663 := 15; //step x
@664 := 5; //step y
@665 := 10; //COUNTER 
//COMMENT NC
@666 := [@665-1]*@663; //SPECIAL
@667 := 0; //STEP COORD X
@668 := 0; //STEP COORD Y
N100 IF (@665 = 0) THEN GOTO 1000;
END_IF;
IF (@662 < [@664*2]) THEN GOTO
1000;
END_IF;
G00 X[[[@660-@666]/2]+@667];

Y[[[@661-@662]/2]+@668] Z20.;
Z10.;
G01 Z-3. F220;
Y[[[@661-@662]/2]+@662];
G00 Z10.;
@662 := [@662-[@664*2]];
@667 := [@667+@663];
@668 := [@668+@664];
@665 := [@665-1];
GOTO 100;
N1000;
G53 Z0.;
M09;
M05;
M30;