function m1666(hParam)
	local inst = mc.mcGetInstance();
	local CurTool = mc.mcToolGetCurrent(inst)
	--mc.mcCntlSetLastError(inst, 'Current Tool handle == ' .. tostring(CurTool));
	--mc.mcCntlSetLastError(inst, 'hParam handle == ' .. tostring(hParam));
	if (hParam ~= nil) then
		local pVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_P)
		local pFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_P)
		--mc.mcCntlSetLastError(inst, 'pVal handle == ' .. tostring(pVal));
		--mc.mcCntlSetLastError(inst, 'pFlag handle == ' .. tostring(pFlag));
		
		local tVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_T)
		local tFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_T)
		--mc.mcCntlSetLastError(inst, 'tVal handle == ' .. tostring(tVal));
		--mc.mcCntlSetLastError(inst, 'tFlag handle == ' .. tostring(tFlag));
		if tFlag==1 then CurTool=tVal end;
		
		local dVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_D)
		local dFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_D)
		--mc.mcCntlSetLastError(inst, 'dVal handle == ' .. tostring(dVal));
		--mc.mcCntlSetLastError(inst, 'dFlag handle == ' .. tostring(dFlag));

		local rVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_R)
		local rFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_R)
		--mc.mcCntlSetLastError(inst, 'rVal handle == ' .. tostring(rVal));
		--mc.mcCntlSetLastError(inst, 'rFlag handle == ' .. tostring(rFlag));
	
		local xVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_X)
		local xFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_X)
		--mc.mcCntlSetLastError(inst, 'xVal handle == ' .. tostring(xVal));
		--mc.mcCntlSetLastError(inst, 'xFlag handle == ' .. tostring(xFlag));
		
		local yVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_Y)
		local yFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_Y)
		--mc.mcCntlSetLastError(inst, 'yVal handle == ' .. tostring(yVal));		
		--mc.mcCntlSetLastError(inst, 'yFlag handle == ' .. tostring(yFlag));
		
		local zVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_Z)
		local zFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_Z)
		--mc.mcCntlSetLastError(inst, 'zVal handle == ' .. tostring(zVal));
		--mc.mcCntlSetLastError(inst, 'zFlag handle == ' .. tostring(zFlag));
		
		local hVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_H)
		local hFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_H)
		--mc.mcCntlSetLastError(inst, 'hVal handle == ' .. tostring(hVal));
		--mc.mcCntlSetLastError(inst, 'hFlag handle == ' .. tostring(hFlag));
		
		local qVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_Q)
		local qFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_Q)
		--mc.mcCntlSetLastError(inst, 'qVal handle == ' .. tostring(qVal));
		--mc.mcCntlSetLastError(inst, 'qFlag handle == ' .. tostring(qFlag));
		
		local aVal = mc.mcCntlGetLocalVar(inst, hParam, mc.SV_A)
		local aFlag = mc.mcCntlGetLocalVarFlag(inst, hParam, mc.SV_A)
		--mc.mcCntlSetLastError(inst, 'aVal handle == ' .. tostring(aVal));
		--mc.mcCntlSetLastError(inst, 'aFlag handle == ' .. tostring(aFlag));

		if((qFlag == 1)or(zFlag == 1)or(xFlag==1)or(dFlag==1)or(rFlag == 1)) then
			if qFlag==1 then
			    rc=mc.mcToolSetData(inst,mc.MTOOL_MILL_POCKET,CurTool,tonumber(qVal))
			end
			if zFlag==1 then
			    rc=mc.mcToolSetData(inst,mc.MTOOL_MILL_HEIGHT,CurTool,tonumber(zVal))
			end
			if xFlag==1 then
			    rc=mc.mcToolSetData(inst,mc.MTOOL_MILL_DIA_W,CurTool,tonumber(xVal))
			end
			if dFlag==1 then
			    rc=mc.mcToolSetData(inst,mc.MTOOL_MILL_DIA,CurTool,tonumber(dVal))
			end
			if rFlag==1 then
			    rc=mc.mcToolSetDesc(inst,CurTool,'tool tip radius: '..tostring(rVal))
			end
		else if zFlag~=1 or xFlag~=1 or dFlag~=1  then
			mc.mcCntlSetLastError(inst, 'ERROR: Z, X or D value required with M6001');
			    mc.mcCntlEStop(inst);
			end
		end
	else
		mc.mcCntlSetLastError(inst, 'ERROR: handle == nil');
	end       
end

--(inst, "P3 r.015tip_radius d66dia x0diawear y44nothing_yet z123length h88pocket q21pocket a33nothing_yet")
if (mc.mcInEditor() == 1) then
	local inst = mc.mcGetInstance() 
	hParam = mc.mcCntlCreateLocalVars(inst, "t13 r.015 d66 x0 y44 z123.5 q21 a33")
	--hParam = mc.mcCntlCreateLocalVars(inst, "P3 t14 r.015 d50 x0 z127.1 q21")
	--hParam = mc.mcCntlCreateLocalVars(inst, "t15 a155.5")
	--hParam = mc.mcCntlCreateLocalVars(inst, "z102.1")--defaults to current tool
    m1666 (hParam )
end