O0001;

#100 = 6;

/////////

#100 = .....; EMPTY

#100 = 0;

G#100 X30.; rapid traverse to X30.

M#100 - M0 - stop nc

#100 = 0;

#101 = 30;

G#100 X#101; rapid traverse to X30.

#101 = #0;

-0-

$a = 2;

$b = 2*$a*$c; //4

$b = 2*$a*$c;  //0

?

#104  = #1024;

M80;

IF [#1024 EQ 0.0] THEN M00;

IF [#1024 NE 1.0] THEN M00;

M214;

          //  1,0