完整程序如下，这是个车床换刀样例程序

PROC TCHANGE SAVE SBLOF DISPLOF

;VERSION: 04.05.02

;CHANGE :02082014

;

DEF INT _LANGUAGE

IF $P_GG[47]==2

  _LANGUAGE=1

ELSE

  _LANGUAGE=0

ENDIF

IF _LANGUAGE==1         ; CALL IN ISO-MODE

  $C_MACPAR[1] = $C_T_VALUE

  G291

  T$1

  G290

ELSE

IF $C_T_PROG==1 ; T is numeric

  IF $C_T==0 ; T=0

    T=0

  ENDIF

  IF $C_T > 0

       T=$C_T           ; T-programming location number

                        ; insert here machine function for tool change

     IF $C_D_PROG==1

       D=$C_D

     ENDIF  

  ENDIF

ENDIF

;

IF $C_TS_PROG==1        ; T is string

    T=$C_TS             ; T-programming without address expansion

                        ; insert here machine function for tool change

    IF $C_D_PROG==1

       D=$C_D

     ENDIF  

ENDIF

ENDIF

;

M17