#100 = 5;

g00 x100.

-----

#102 = 0;

IF [#--- EQ 1000] THEN #100 = 101;

IF [#--- EQ 2000] THEN #100 = 102;

IF [#--- EQ 3000] THEN #100 = 103;

IF [#--- EQ 4000] THEN #100 = 104;

IF [#--- EQ 5000] THEN #100 = 105;

#[#100] = #100;

-----

#100 = 3;

#101 = 25;

N10 IF [#101 EQ 0] THEN M30;

G01 Z-#100 F100;

#100 = #100 + 0.001;

#101 = #101 - 1;

GOTO N10

-----

N10 G103 P1;
N20 #100 = 24;
N30 #101 = 2; 
N40 #102 = 3.6;
N50 #103 = 12;
N60 #104 = 250;
N70 M06 T1;
N80 G43 H1;
N90 IF [#100 EQ 0] GOTO 290;
N100 IF [#101 EQ 0] GOTO 250;
N110 M03 S10000;
N120 M08;
N130 G00 X#103 Y365. Z10.;
N140 Z3.;
N150 G01 Z-#102 F150;
N160 Y315. F#104;
N170 G00 Z10.;
N180 M09;
N190 M05;
N200 #100 = #100 - 1;
N210 #101 = #101 - 1;
N220 M00;
N230 M00;
N240 GOTO 90;
N250 #103 = #103 - 0.005;
N260 #104 = #104 + 20;
N270 #102 = #102 + 0.3;
N275 #101 = 2;
N280 GOTO 100;
N290 M05;
N300 M09;
N310 G91 G28 Z0.;
N320 G28 X0.Y0.;
N330 G90;
N340 M30;