$P_UIFR[1]=CTRANS(X,R101,Y,R102,Z,R103,W,R104)
$P_UIFR[1,X,TR]=R101 ;X
$P_UIFR[1,Y,TR]=R102 ;Y
$P_UIFR[1,Z,TR]=R103 ;Z
$P_UIFR[1,W,TR]=R104 ;W
$P_UIFR[1,Z,RT]=0 ;Coord.-rotation
$P_UIFR[1,Y,RT]=0 ;Coord.-rotation
$P_UIFR[1,X,RT]=0 ;Coord.-rotation
G55
$P_UIFR[2,X,TR]= ;X
$P_UIFR[2,Y,TR]= ;Y
$P_UIFR[2,Z,TR]= ;Z
$P_UIFR[2,B,TR]= ;B
$P_UIFR[2,Z,RT]=0 ;Coord.-rotation
$P_UIFR[2,Y,RT]=0 ;Coord.-rotation
$P_UIFR[2,X,RT]=0 ;Coord.-rotation