(G90 ENTER) G10
(G91 INPUT+) G10

-----
L10 - GEOM(H)
L11 - WEAR(H)
L12 - GEOM(D)
L13 - WEAR(D)


P + CORR.
R + VALUE


L2 :
P0 - EXT COORD (SHIFT AMOUNT)
P1 - G54
P2 - G55
P3 - G56
P4 - G57
P5 - G58
P6 - G59

X,Y,Z,A,B,C + VALUE
-----


#100 = 3475;
#101 = 100;
.............
N10 IF [#100 EQ 0] THEN M30;
N20 IF [#101 EQ 0] GOTO 100;
.............
.............
.............
#100=#100-1;
#101=#101-1;
GOTO 10;
N100 G91 G10 L13 P15 R-0.001;
G90;
#101=100;
GOTO 10