'M2.m1s rotation test
Dim spots As Integer
Dim move As Integer
move = 30
Dim T As Integer 'New Tool
Dim ST As Integer 'Old Tool
T = InputBox$("New Tool #","New Tool","")
ST =  InputBox$("Old Tool #","Old Tool","")
spots = T - ST 'New Tool - Old Tool
If spots > 0 And spots < 7 Then '1 to 6
  Select Case spots
  Case 1
    spots = move
  Case 2
    spots = move * 2
  Case 3
    spots = move * 3
  Case 4
    spots = move * 4
  Case 5
    spots = move * 5
  Case 6
    spots = move * 6
  End Select  
End If
If spots > 6 And spots < 11 Then '7 to 11
  Select Case spots
  Case 7
    spots = move * -5
  Case 8
    spots = move * -4
  Case 9
    spots = move * -3
  Case 10
    spots = move * -2
  Case 11
    spots = move * -1
  End Select  
End If
If spots > -7 And spots < 0 Then '-1 to -6
  Select Case spots
  Case -1
    spots = move * -1
  Case -2
    spots = move * -2
  Case -3
    spots = move * -3
  Case -4
    spots = move * -4
  Case -5
    spots = move * -5
  Case -6
    spots = move * -6
  End Select  
End If
If spots < -6 And spots > -12 Then '-7 to -11
  Select Case spots
  Case -7
    spots = move * 5
  Case -8
    spots = move * 4
  Case -9
    spots = move * 3
  Case -10
    spots = move * 2
  Case -11
    spots = move * 1
  End Select  
End If
Code ("G91 A" & spots)
Code ("G90")   
While IsMoving
  sleep 100
Wend  
SetOEMDRO(803, 0)