The correct version is fallowing:

&ACCESS RVE

DEF DEGRO1( )

;FOLD INI;%{PE}%V3.2.0,%MKUKATPBASIS,%CINIT,%VCOMMON,%P

;FOLD BAS INI;%{E}%V3.2.0,%MKUKATPBASIS,%CINIT,%VINIT,%P

GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )

INTERRUPT ON 3

BAS (#INITMOV,0 )

;ENDFOLD (BAS INI)

;ENDFOLD (INI)

BAS(#VEL_PTP, 10)

BAS(#ACC_PTP, 10)

PTP $POS_ACT

$APO.CDIS=0.1

$APO.CORI=1

$APO.CVEL=100

$APO.CPTP=50

BAS(#VEL_PTP, 75)

$IPO_MODE=#BASE

$TOOL=TOOL_DATA[1]

$VEL.CP=0.083

EX_BASE(17,2)

LIN {X 2273.13,Y 889.88, Z 488.05, A -2.44, B -37.39, C -27.13, E1 0} C_VEL

LIN {X 422.11,Y 77.03, Z 934.75, A -134.85, B 11.65, C -90, E1 62.7} C_VEL

LIN {X 422.11,Y 77.03, Z -12.22, A -134.85, B 11.65, C -90, E1 62.7} C_VEL

LIN {X 415.01,Y 84.08, Z -12.22, A -134.85, B 11.65, C -90, E1 62.71} C_VEL

LIN {X 407.92,Y 91.13, Z -12.22, A -134.85, B 11.65, C -90, E1 62.72} C_VEL

$VEL.CP=0.167

LIN {X 407.93,Y 91.13, Z -12.26, A -134.85, B 11.65, C -90, E1 62.72} C_VEL

LIN {X 407.98,Y 91.18, Z -12.64, A -134.85, B 11.65, C -90, E1 62.7} C_VEL

LIN {X 408.11,Y 91.31, Z -12.98, A -134.85, B 11.65, C -90, E1 62.66} C_VEL

LIN {X 408.3,Y 91.51, Z -13.25, A -134.85, B 11.65, C -90, E1 62.58} C_VEL

LIN {X 408.55,Y 91.76, Z -13.43, A -134.85, B 11.65, C -90, E1 62.5} C_VEL

LIN {X 408.82,Y 92.03, Z -13.5, A -134.85, B 11.65, C -90, E1 62.4} C_VEL

$VEL.CP=0.2

LIN {X 409.17,Y 92.39, Z -13.5, A -134.72, B 11.65, C -90, E1 62.27} C_VEL

LIN {X 409.52,Y 92.74, Z -13.5, A -134.59, B 11.65, C -90, E1 62.14} C_VEL

LIN {X 409.87,Y 93.1, Z -13.5, A -134.46, B 11.65, C -90, E1 62.01} C_VEL

LIN {X 410.22,Y 93.46, Z -13.5, A -134.33, B 11.65, C -90, E1 61.89} C_VEL

LIN {X 410.57,Y 93.82, Z -13.5, A -134.21, B 11.65, C -90, E1 61.76} C_VEL

LIN {X 410.92,Y 94.17, Z -13.5, A -134.08, B 11.65, C -90, E1 61.63} C_VEL

..........

LIN {X 204.81,Y 469.4, Z -40.5, A 11.64, B 11.65, C -90, E1 -84.09} C_VEL

LIN {X 205.79,Y 469.6, Z -40.5, A 11.38, B 11.65, C -90, E1 -83.83} C_VEL

LIN {X 206.77,Y 469.79, Z -40.5, A 11.13, B 11.65, C -90, E1 -83.58} C_VEL

LIN {X 207.76,Y 469.98, Z -40.5, A 10.87, B 11.65, C -90, E1 -83.32} C_VEL

LIN {X 208.74,Y 470.17, Z -40.5, A 10.61, B 11.65, C -90, E1 -83.06} C_VEL

END

DEF EX_BASE(BASE_NO :IN,MACH_IDX :IN)

INT BASE_NO , MACH_IDX

MY_FRAME = BASE_DATA[BASE_NO]:{x 0.0,y 0.0, z 0.0, a 0.0, b 0.0, c 0.0}

$BASE=EK(MACHINE_DEF[MACH_IDX].ROOT, MACHINE_DEF[MACH_IDX].MECH_TYPE,BASE_DATA[BASE_NO]:{x 0.0,y 0.0, z 0.0, a 0.0, b 0.0, c 0.0})

$ACT_BASE=BASE_NO

END

Many Thanks Fubini !

Additionally Base 17 is defined in setup Menu in the coordinates frame of rotary table center (top surface rotatory)