If GetInBit(90,16) Then 'Bar end signal
Code "G0 G54 Z110" 'Clear to make space for Bar fedder to push remnant out
ResetOutBit(90,11) 'Collet close reset
SetOutBit(90,9) 'Collet Open
SetOutBit(90,6) 'Collet Open
SetUserLed(1001,1) 'Set Collet open LED ON
If GetInBit(90,17) = False Then 'Wait for Start signal from Bar fedder
Sleep(50)
End If
Code "G0 G54 Z-35" 'Position stopper at top cut position
Sleep(1000)
If GetInBit(90,17) = False Then 'Wait for Start signal from Bar fedder
Sleep(50)
End If
ResetOutBit(90,9) 'Reset Collet Open
ResetOutBit(90,6) 'Reset Collet Open
SetOutBit(90,11) 'Collet Close
Sleep(100)
SetUserLed(1001,0) 'Set Collet open LED OFF
Sleep(2000)
Else
ResetOutBit(90,11) 'Collet close reset
Sleep(100)
SetOutBit(90,9) 'Collet Open
SetOutBit(90,6) 'Collet Open
SetUserLed(1001,1) 'Set Collet open LED ON
If GetInBit(90,17) = False Then 'Wait for Start signal from Bar fedder
Sleep(50)
End If
ResetOutBit(90,9) 'Reset Collet Open
ResetOutBit(90,6) 'Reset Collet Open
SetOutBit(90,11) 'Collet Close
Sleep(100)
SetUserLed(1001,0) 'Set Collet open LED OFF
Sleep(2000)
End If