0  BEGIN PGM M340 MM 
1  ;switch axis direction
2  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+340 ; NUMBER NC MACRO ON
3  ;upwardAxis = +Z
4  ;RightwardAxis = +X
5  ;
6  ;read active kinematic
7  FN 18: SYSREAD Q999 = ID290 NR1
8  ;
9  ;delete & copy file
10 FUNCTION FILEDELETE "PLC:\KINEMAT_PS\KineDesign.ini"
11 FUNCTION FILECOPY "PLC:\KINEMAT_PS\KineDesign_ZX.ini" TO ~
"PLC:\KINEMAT_PS\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 M340 MM