O9960; /*C-AXIS DRILL*/
     IF ( #18 <= #26 ) GOTO 9054;
     IF ( #5 < #18   ) GOTO 9055;
     IF (@2 == #3) GOTO 20; // IF PREVIOUR_C EQUAL PRESENT COMMAND
        /M26;      // UN-LOCK AXIS.C
        /G04 P500;
N20  G90  G0 X#24 C#3; // X,C LOCATED
     IF (@2 == #3) GOTO 50;
        /G04 P200;   // EXATCT STOP
        /M25;     // LOCK AXIS.C
N50  G0 Z#5;      // RAPID TO CLEARANCE POINT.Z
     G0 Z#18;     // RAPID TO TOP.HOLE
     G1 Z#26;     // DRILLING_DOWN
     G0 Z#5;      // RAPID TO CLEARANCE POINT.Z
        G04 P100; // EXACT STOP
        @2=#3;    // RESERVED_C FOR COMPARE
     M99;
N9054    $599=54;   // alarm#54
N9055    $599=55;   // alarm#55,ref to ENG_INT.ERR
    M99;
;; AUTHOR:Yi-Wan LIN 12/03/1998
;; USAGE :G65 P9960 E R Z C X
;;   E(#5 )_ABSOLUSTE.Z FOR CLEARANCE
;;   R(#18)_TOP.HOLE
;;   Z(#26)_BOTTOM.HOLE
;;   C(#3 )_ABSOLUTE.C
;;   X(#24)_ABSOLUTE.X