;//O9904 GRID POSITION(M,C,D,A,B,E,U,X,Y,Z,R,K,Q,V,T,F,S)
       IF (#13==#0) GOTO 10;
          @81=#13;
N10     #27=$1;                 //backup modal command G0 G1
        #28=$3;                 //G90 G91
        #29=$7;                 //G40 G41 G42
        #30=$13;                //G96 G97
        IF( @90 <= #18 ) GOTO 9055; // CAN'T ACCEPT ESCAPE.Z LOWER THEN R
        IF( @92 <= 0   ) GOTO 9050; // CAN'T ACCEPT PHI <= 0
        IF( @92 >= #1  ) GOTO 9060; // CAN'T ACCEPT PHI >= xPITCH
        IF( @92 >= #2  ) GOTO 9060; // CAN'T ACCEPT PHI >= yPITCH
        IF( #3  <= 1   ) GOTO 9061; // CAN'T ACCEPT xNO.HOLES <=1
        IF( #4  <= 1   ) GOTO 9061; // CAN'T ACCEPT yNO.HOLES <=1
        IF( #26 >= #18 ) GOTO 9062; // CAN'T ACCEPT Z >= R
        IF(#6!=#0) GOTO 70;
        #6=@91;                 //use default feed rate
N70     IF(#19==#0) GOTO 80;
        @95=#19;
N80     IF (@95>0) GOTO 90;
        IF (@81==5) GOTO 100;
        M04S-@95;
        GOTO 100;
N90     IF (@81==5) GOTO 100;
        M03S@95;
N100    #3=FIX(#3);
        #4=FIX(#4);
        G90G00Z@90M08;
        G00X#24Y#25;
        IF (#5 == #0) GOTO 200;
        G68 R#5;
N200    #31=#24;
;
        #10=0;
N1000   #9=0;
N1010   G90G65P9908Z#26R#18E#20U#22Q#17K#11F#6S@95;    //G73,G83,G85,G89
        #9=#9+1;
        IF (#9==#4) GOTO 1100;
        IF(#21 > 0.5) GOTO 1050;
        IF(#10==(#3-1) || (#10 ==0)) GOTO 1050;
        #9=#4-1;
        #13=#2*(#4-1);
        GOTO 1070;
N1050   #13=#2;
N1070   G91G00Y#13;
        GOTO 1010;
N1100   G90G00Z@90;
        #24=#24+#1;
        #10=#10+1;
        IF (#10 == #3) GOTO 1500;
        G00X#24Y#25;
        IF (#10<#3) GOTO 1000;
N1500   G#27G#28G#29G#30G69;       //restore original modes
        M99;
;//---------------------------------------------------------------------
N9050    $599=50;
N9051    $599=51;
N9052    $599=52;
N9053    $599=53;
N9054    $599=54;
N9055    $599=55;
N9056    $599=56;
N9060    $599=60;
N9061    $599=61;
N9062    $599=62;
;/**********************************************************************/
;/*  Original:   1997-02-12      By Bing Shi Lee                       */
;/*  Modifier:          Yi-Wan Lin 06/26/1998 08:29:33                 */
;/*  X(#24), Y(#25) : the coordnates of reference point of plane       */
;/*  R(#18) : the POS.Z  where drilling is started                     */
;/*  Z(#26) : the POS.Z  where drilling is  ended                      */
;/*  A(#1) : Horizontal pitch                                          */
;/*  B(#2) : Vertical pitch                                            */
;/*  C(#3) : Number of horizobtal holes                                */
;/*  D(#4) : Number of vertical holes                                  */
;/*  E(#5) : Orientation angle                                         */
;/*  U(#21): 0:square type  1:grid type                                */
;/**********************************************************************/