0  BEGIN PGM M341 MM 
1  ;switch axis direction
2  ;upwardAxis = +Y
3  ;RightwardAxis = +Z
4  ;
5  ;read active kinematic
6  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+341 ; NUMBER NC MACRO ON
7  FN 18: SYSREAD Q999 = ID290 NR1
8  ;
9  ;delete & copy file
10 FUNCTION FILEDELETE "PLC:\KINEMAT_PS_neu\KineDesign.ini"
11 FUNCTION FILECOPY "PLC:\KINEMAT_PS_neu\KineDesign_YZ.ini" TO ~
"PLC:\KINEMAT_PS_neu\KineDesign.ini"
12 ;
13 ;activate kinematic
14 FN 17: SYSWRITE ID 290 NR1 =+Q999
15 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
16 END PGM M341 MM