/* M90 TAKE THE TOOL FROM MAGAZINE O9003  */
        #30=$3;                                 /* RECORD GROUP 3 VALUE */
        #20=FIX(#20);                           /* T COMMAND MUST INTEGER */
        IF ((#20>$32 )||(#20 < 0 )) GOTO 9090;  /* T COMMAND ERROR */
        IF ((#20==#0 )||(#20 ==0 )) GOTO 9090;  /* T COMMAND ERROR */
        IF (#20==$31) GOTO 8000;                /* Txx=Sn */
        IF ($31==0) GOTO 100;                   /* M90T1 M2S0 */
        IF ($31==$41) GOTO 50;                  /* M90T1 M2S2 */
        $301=32;
        T$31;                                   /* M90T1 M3S2 */
        $301=0;
N50     $301=3;
        G91G30P2Z0M19;
        $301=0;
        $301=4;
        M40;
        $301=0;
        G4X0.5;
        $301=8;
        M11;
        $301=0;
        G4X1;
        $301=16;
        G53Z0;
        $301=0
        GOTO 150;
N100    $301=18;
        M19G53Z0;
        $301=0;
N150    $301=32;
        T#20;
        $301=0;
        $301=4;
        M40;
        $301=0;
        $301=8;
        M11;
        $301=0;
        G04 X0.5;
        $301=1;
        G91G30P2Z0;
        $301=0;
        $301=128;
        M10;
        $301=0;
        $301=64;
        M41; ;; HERE PUSH TOOL CLAMP/UNCLAMP BUTTON
        $301=0;
        M0;  ;;       TO TAKE OUT THE TOOL
        GOTO 8000;
N9090   $599=90;
N8000   G#30;                                   /* WRITE GROUP 3 VALUE */
        M99;
/* KAO YUNG-MING 1998.0901  ver:3 */
/* 128   64   32   16    8    4    2    1           */
/* M10   M41       G53   M11  M40  M19  G30    R39  */
/* M10   M41  TF   G53   M11  M40  M19  G30    $301 */