O9951; /*LAYSER MEA MOVEMENT*/
;; AUTHOR:YI-WAN LIN 07/15/1998 09:13:39
     #1=FIX(ABS(#1));   // Axis select
     #5=ABS(#5);        // OverRun
     #11=FIX(ABS(#11)); // NO.SEG
     #20=FIX(ABS(#20)); // Dwell time
     #21=FIX(ABS(#21)); // isOnkey
     IF (#20>=1) GOTO 95;
       #20=1;
;;---------------------------------------------------------
N95  IF( #1==3 ) GOTO 300;   // For Z-Axis
     IF( #1==2 ) GOTO 200;   // For Y-Axis
     IF( #1==1 ) GOTO 100;   // For X-Axis
;;--------------For X Axis---------------------------------
N100 ;;/G53Z0F800;
     ;;/G90G0Y0;
     G53X#18; // Begining (1st) Point
     ;;/G90G0Z0;
      M0; // WAIT  CYCLE START...
     G91G01X#5 F800;   //
     G91G01X-#5;  // cancel back-space
      M0; // WAIT CYCLE START...GO FORWARD
     #12=1;
N105 IF (#12>#11)  GOTO 110;
      G91G00X#17;
      G04X#20;
      #12=#12+1;
     GOTO 105;
N110 G91G01X-#5;
     G91G01X#5;
     IF(#21==0) GOTO 150; //check isOnkey
      M0; // WAIT CYCLE START...GO REVERSE
     GOTO 151;
N150 G04X#20;;  // ---- go reverse..----
N151 #12=1;
N160 IF (#12>#11)  GOTO 165;
      G91G00X-#17;
      G04X#20;
      #12=#12+1;
     GOTO 160;
N165 M99;
;;--------------For Y Axis---------------------------------
N200 ;;/G53Z0F800;
     ;;/G90G0X0;
     G53Y#18;
      M0; // WAIT CYCLE START...CANCEL BACKLASH
     G91G01Y#5 F800;   //
     G91G01Y-#5;  // cancel back-space
      M0; // WAIT CYCLE START...GO FORWARD
     #12=1;
N205 IF (#12>#11)  GOTO 210;
      G91G00Y#17;
      G04X#20;
      #12=#12+1;
     GOTO 205;
N210 G91G01Y-#5;
     G91G01Y#5;
     IF(#21==0) GOTO 250;
      M0; // WAIT CYCLE START...GO REVERSE
     GOTO 251;
N250 G04X#20;   // ---- go reverse..----
N251 #12=1;
N260 IF (#12>#11)  GOTO 265;
      G91G00Y-#17;
      G04X#20;
      #12=#12+1;
     GOTO 260;
N265 M99;
;;--------------For Z Axis---------------------------------
N300 ;;/G53Z0F800;
     G53Z#18;
     ;;/G90G0X0;
     ;;/G90G0Y0;
      M0; // WAIT CYCLE START...CANCEL BACKLASH
     G91G01Z#5 F800;   //
     G91G01Z-#5;  // cancel back-space
      M0; // WAIT CYCLE START..GO FORWARD
     #12=1;
N305 IF (#12>#11)  GOTO 310;
      G91G00Z#17;
      G04X#20;
      #12=#12+1;
     GOTO 305;
N310 G91G01Z-#5;
     G91G01Z#5;
     IF(#21==0) GOTO 350;
      M0; // WAIT CYCLE START..GO REVERSE
     GOTO 351;
N350 G04X#20;;  // ---- go reverse..----
N351 #12=1;
N360 IF (#12>#11)  GOTO 365;
      G91G00Z-#17;
      G04X#20;
      #12=#12+1;
     GOTO 360;
N365 M99;