'Get the current values
ActY = GetOEMDro(801)
MinYCoord = GetOEMDro(5)
MaxYCoord = GetOEMDro(11)

'front lowering
If ActY <= (MinYCoord+80) Then ActivateSignal(OUTPUT10)
'front raising
If ActY > (MinYCoord+80) Then DeActivateSignal(OUTPUT10)
rear lowering
If ActY <= (MaxYCoord-80) Then ActivateSignal(OUTPUT11)
'front raising
If ActY > (MaxYCoord-80) Then DeActivateSignal(OUTPUT11)


If(GetInBit(90, 2)) And Not (GetOemLed(800)) Then
Code("G55")
Wait
If getDro(24) = 2 Then
Code("G52 X-275.95 Y167.36 ")
Wait
End If
If getDro(24) = 3 Then
Code("G52 X-551.09 Y-2.87 Z0")
Wait
End If
Wait

End If

If(GetInBit(90, 3)) And Not (GetOemLed(800)) Then
Code("G56")
Wait
If getDro(24) = 2 Then
Code("G52 X-275.95 Y167.36 ")
Wait
End If
If getDro(24) = 3 Then
Code("G52 X-551.09 Y-2.87 Z0")
Wait
End If

End If


End

'-----------------------------------------------------------------------------
Sub Wait()
WhileIsMoving()
Wend
End Sub
'-----------------------------------------------------------------------------