Tool = GetSelectedTool			'current tool
REM Context 10001
If IsSuchSignal (22) Then
code"G0g90Z" & 16.0
code"G0g90X" & 24.02 & "Y" & 1.985		'moves to above switch
code "g31 z0 f30"
While IsMoving()
Wend
code "g1g91z.1f30"
While IsMoving()
Wend
code "g31g90z0f5"
While IsMoving()
Wend
MachineZ = GetVar(2002)			'switch contact point
MachineZ = MachineZ - 2.0288		'calculates tool length offset
code "G10 L2 P" & Tool &"Z"&MachineZ	'inserts tool table
code "G43H"&Tool			'turns offset to on
code "g0g90z16.0"
WhileIsMoving()
Wend
end if