' Added the Following error 7/21/05 Brian rem modified 06/17/2005 by Jim Cullins of Sound Logic Option Explicit Dim XPos, YPos, ZPos, Xenc, Yenc, Zenc,Xtemp,Ytemp,Ztemp,Following_Error Following_Error = GetOEMDRO (1050) XPos = GetOEMDRO(83) Xenc = GetPARAM ("Encoder1") If ABS(Xenc - XPos) > Following_Error then Call DoOEMButton (1001) CALL SetUserLED (1004, 1) ' turn LED on Xtemp = 1 else CALL SetUserLED (1004,0) ' turn LED OFF Xtemp = 0 END If YPos = getOEMDRO (84) Yenc = getPARAM ("Encoder2") If ABS(Yenc - YPos) > Following_Error then Call DoOEMButton (1001) CALL SetUserLED (1005, 1) ' turn LED on Ytemp = 1 else CALL SetUserLED (1005,0) ' turn LED OFF Ytemp = 0 END IF ZPos = getOEMDRO (85) Zenc = getPARAM ("Encoder3") If ABS(Zenc - ZPos) > Following_Error then Call DoOEMButton (1001) CALL SetUserLED (1006, 1) ' turn LED on Ztemp =1 else CALL SetUserLED (1006,0) ' turn LED OFF Ztemp = 0 END IF If (Xtemp + Ytemp + Ztemp )>0 then ActivateSignal( 11 ) else DeActivateSignal( 11 ) End if