HEX

EE00 D56 ! ( COUNT IP
3000 D5E ! ( CASCADE

2VARIABLE TB EEWORD
2VARIABLE TE EEWORD 0000.0000 TE 2!
2VARIABLE TDI EEWORD 0000.0000 TDI 2! ( Time Delta of interal 
2VARIABLE TDB EEWORD 0000.0000 TDB 2! ( Time Delta between interals 
2VARIABLE T> EEWORD 7FFF.FFFF T> 2!
2VARIABLE T< EEWORD 0000.0000 T< 2!
2VARIABLE >T EEWORD 7FFF.FFFF T> 2!
2VARIABLE <T EEWORD 0000.0000 T< 2!

( : TININT
(   0000.0000 TDI 2!
(   0000.0000 TDB 2!
(   7FFF.FFFF T> 2!
(   0000.0000 T< 2!
(   7FFF.FFFF >T 2!
(   0000.0000 <T 2!
( ; EEWORD

: <B 0D5D @ D54 @ TB 2! TB 2@ TE 2@ D- 93F. D+ TDB 2! ; EEWORD
: E> 0D5D @ D54 @ TE 2! TE 2@ TB 2@ D- 93F. D- TDI 2! ; EEWORD
: TMIN TDI 2@ T> 2@ DMIN T> 2! TDB 2@ >T 2@ DMIN >T 2! ; EEWORD
: TMAX TDI 2@ T< 2@ DMAX T< 2! TDB 2@ <T 2@ DMAX <T 2! ; EEWORD

( TO VERIFY, CHECK WITH THIS DEFINITION FOR = 0
( : Z <B E> TMIN TMAX TDI 2@ D. ; EEWORD
( USEAGE
( : X
( <B
(  DUP DUP + DROP
( E> TMIN TMAX 
( ; EEWORD
 : D? 2@ D. ; EEWORD
 : I? T> D? TDI D? T< D? ; EEWORD
 : B? >T D? TDB D? <T D? ; EEWORD
 : % TDI 2@ D>F FDUP TDB 2@ D>F F+ F/ F. ; EEWORD
( TDI 2@ D. ( for last cycle or
( TDB 2@ D. ( for last cycle or
( T> 2@ D. ( for minimum of several cycles in interval
( T< 2@ D. ( for maximum of several cycles in interval
( >T 2@ D. ( for minimum of several cycles beween intervals
( <T 2@ D. ( for maximum of several cycles beween intervals