Sub Main()




Code"G53G0Z0"
While IsMoving()
Sleep(50)
Wend


If IsLoading() Then
  ' do nowt
Else
  OldTool=(GetOEMDRO(824))   'current tool position
  NewTool=GetSelectedTool()      'tool to be indexed
  
   If NewTool<1 Or NewTool>6 Or NewTool=Oldtool Then 'valid tool check
    Message("Tool Change ERROR") 
   
   If NewTool<1 Or NewTool>6 Or NewTool=Oldtool Then 
    Toolerror=1
   
   End If
     End If
  
  If Toolerror=1 And IsOutputActive(Output8) Then ActivateSignal(OUTPUT8) Message("SMS Alarm sent")
   
  
  If toolerror=1 Then
  
  Exit Sub
  
  End If
    

   ToolDif1 = NewTool - OldTool  
   ToolDif2 = OldTool - NewTool
 

  Sensors=0
  Count=Newtool-Oldtool
  CountABS=Abs(Count)

  Select Case countabs
  
   Case 1 
   	ActivateSignal(Output5)
   	ActivateSignal(Output11)
     	ActivateSignal(Output13)
 		
   
   Case 2 
	ActivateSignal(Output5) 
   	ActivateSignal(Output11) 
   	DeActivateSignal(Output13)
   			
   			
   Case 3 
   	ActivateSignal(Output5) 
   	DeActivateSignal(Output11) 
   	DeActivateSignal(Output13)
 			 
  
   Case 4 
	DeActivateSignal(Output5) 
   	DeActivateSignal(Output11) 
   	DeActivateSignal(Output13)
   			
   
   Case Else 
	DeActivateSignal(Output5) 
   	DeActivateSignal(Output11) 
   	ActivateSignal(Output13)
  			
  
   End Select
   
   
  
   
   If ToolDif1 < ToolDif2 Then
    ActivateSignal(OUTPUT1)           'start carrosel to turn cw
Else 
    ActivateSignal(OUTPUT2)         'start carrosel to turn ccw
  
  End If



Do While Sensor<>1
	Sleep 100
	If IsActive(Input4) Then Sensor=sensor+1  'tool change ready
	
	    If Sensor=1 Then DeActivateSignal(OUTPUT1)  'reset start signal
			     DeActivateSignal(OUTPUT2)
			     
	    		      Loop
	    
	    ActivateSignal(OUTPUT4) 'Set reset counter signal

		Sleep 500
	    
	    DeActivateSignal(OUTPUT4)	'deact. reset counter signal
	      
			      

      Sleep 200
        DoSpinCW()
  Sleep 200
        DoSpinStop()
  CurrentTool=Newtool
  SetOEMDRO(824, newtool)
End Sub