O9010(ID THREAD MILLING MACRO V1.0)
(PARAMETERS)
(  A: DISTANCE TO CUTTING PLANE)
(  B: BORING DIAMETER)
(  C: PITCH)
(  D: NOMINAL DIAMETER)
(  E: TAPER IN PERCENT) 

IF [#1 EQ #0] GOTO 1
IF [#2 EQ #0] GOTO 1
IF [#3 EQ #0] GOTO 1
IF [#7 EQ #0] GOTO 1

IF [#2 GE   #7] GOTO 2
IF [#1 LE #3*2] GOTO 2

#27 = #8/100 * #3  (COMPENSATION PER PITCH)
#28 = 0.02         (CLEARANCE)

G61.1

G17
    G0   W-[#1]
G41 G0                 V [#2/2 - #28]
    G3.1 W [#3/2]      V-[#2/2 - #28 + #7/2]         J-[#2/2 - #28]
    G3.1 W [#3]        V-[#27/2]                     J [#7/2]         P1
    G3.1 W [#3/2]      V [#2/2 - #28 + #7/2 + #27/2] J [#7/2 + #27/2]
G40 G0                 V-[#2/2 - #28]
    G0   W [#1 - #3*2]

M99

N1 #3000 = 1 (PARAMETER MISSING)
N2 #3000 = 2 (PARAMETER ERROR)