Sub Main() NumSlots=8 OldTurretPos=(GetOEMDRO(805)) OldToolSlot=Abs(GetOEMDRO(805)/45) NextTool = GetSelectedTool() NextToolSlot = (NextTool-1)*360/NumSlots If OldToolSlot = NextToolSlot Then SetCurrentTool(NextTool) Exit Sub End If If NextTool>8 Or NextTool<1 Then Message("Next Tool out of range") Exit Sub End If MoveDis = (NextToolSlot-OldTurretPos) If Abs(MoveDis) >180 Then If MoveDis < 0 Then MoveDis = 360 + MoveDis Else MoveDis = MoveDis - 360 End If End If ActivateSignal(OUTPUT3) 'Release Turret holding pin Code "G4 P0.5" While IsMoving () Wend Code "G00 G91 C" & MoveDis While IsMoving () Wend DeActivateSignal(OUTPUT3) 'Engage Turret holding pin SetCurrentTool(NextTool) Code "G90" End Sub