Code "M5"
SetOemDro (74,100)
Sleep 800
Do While GetOemDro(39)>0
Loop
Code "M3 S23"
Sleep 500
ActivateSignal(OUTPUT19)
Sleep 2000
Code "M5"
Sleep 500
If Not IsActive(INPUT3) then
CodE "M30"
MsgBox ("ORIENTATION FAILED")
STOP
Message (" ")
End If