EXTERN SETKOS(INT)

DEFINE TOLER AS 10
DEFINE XMESS AS 5
DEFINE YMESS AS 5
DEFINE ZMESS AS 250
R83=0
R90=0

SOFT

;HOME
SETKOS(0)
TRAORI


; FAHRE UBER TEIL
G54
F17000
G90 G1 CP X=R51+XMESS   Y=R52+YMESS   Z=ZMESS A0 B0 C0 G94

;MESSE
IF $A_DBR[20] < (ZMESS+OFFSET_LASER_Z-TOLER)
R90=1
ENDIF


SETKOS(1)
;HOME


M17