O9905; /*POSITION_RANDOM*/
       IF (#13==#0) GOTO 10;
          @81=#13;
N10     IF( @90 <= #18 ) GOTO 9055; // CAN'T ACCEPT ESCAPE.Z LOWER THEN R
        IF( #26 >= #18 ) GOTO 9062; // CAN'T ACCEPT Z >= R
        IF( @92 <= 0   ) GOTO 9050; // CAN'T ACCEPT PHI <= 0
        IF ((#24 ==#0) || (#25 == #0)) GOTO 5000; // 1st point must given
        IF ((#1==#0)   || (#2==#0)) GOTO  50;
         #33=SQRT((#1-#24)*(#1-#24)+(#2-#25)*(#2-#25));
        IF ( #33 <= @92 ) GOTO 9060;  // DIST(P1,P2) <= PHI
        IF ((#3==#0)   || (#4==#0)) GOTO  50;
         #33=SQRT((#3-#1)*(#3-#1)+(#4-#2)*(#4-#2));
        IF ( #33 <= @92 ) GOTO 9060;  // DIST(P2,P3) <= PHI
        IF ((#5==#0)   || (#8==#0)) GOTO  50;
         #33=SQRT((#5-#3)*(#5-#3)+(#8-#4)*(#8-#4));
        IF ( #33 <= @92 ) GOTO 9060;  // DIST(P3,P4) <= PHI
        IF ((#9==#0)   || (#10==#0)) GOTO 50;
         #33=SQRT((#9-#5)*(#9-#5)+(#10-#8)*(#10-#8));
        IF ( #33 <= @92 ) GOTO 9060;  // DIST(P4,P5) <= PHI
N50     #27=$1;                 //backup modal command G0 G1
        #28=$3;                 //G90 G91
        #29=$7;                 //G40 G41 G42
        #30=$13;                //G96 G97
        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 1000;
        M04S-@95;
        GOTO 1000;
N90     IF (@81==5) GOTO 1000;
        M03S@95;
N1000   G90G00Z@90M08;
        G00X#24Y#25; //1(X,Y)
        G90G65P9908Z#26R#18E#20U#22Q#17K#11F#6S@95; //call G73,G83,G85,G89
N1100   IF ((#1==#0) || (#2==#0)) GOTO 1600;
        G90G00Z@90;                         // if  find fist null point
        G00X#1 Y#2;  //2(A,B)               // then skip all latter point
        G90G65P9908Z#26R#18E#20U#22Q#17K#11F#6S@95;
N1200   IF ((#3==#0) || (#4==#0)) GOTO 1600;
        G90G00Z@90;
        G00X#3 Y#4;  //3(C,D)
        G90G65P9908Z#26R#18E#20U#22Q#17K#11F#6S@95;
N1300   IF ((#5==#0) || (#8==#0)) GOTO 1600;
        G90G00Z@90;
        G00X#5 Y#8;  //4(E,H)
        G90G65P9908Z#26R#18E#20U#22Q#17K#11F#6S@95;
N1400   IF ((#9==#0) || (#10==#0)) GOTO 1600;
        G90G00Z@90;
        G00X#9 Y#10; //5(I,J)
        G90G65P9908Z#26R#18E#20U#22Q#17K#11F#6S@95;
N1600   G90 G00 Z@90;
        G#27G#28G#29G#30;    //restore original modes
N5000   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: by Yi-Wan Lin 06/26/1998 08:41:45                       */
;/*  1st POINT(X,Y)  4st POINT(E,H)                                    */
;/*  2st POINT(A,B)  5st POINT(I,J)                                    */
;/*  3st POINT(C,D)                                                    */
;/**********************************************************************/