0  BEGIN PGM M313 MM 
1  * - Compensation of W-Axis
2  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+313 ; NUMBER NC MACRO ON
3  FN 18: SYSREAD Q0 = ID2000 NR10 IDX4158
4  FN 9: IF +Q0 EQU +1 GOTO LBL "END"
5  FN 18: SYSREAD Q1 = ID2000 NR10 IDX4157
6  FN 9: IF +Q1 EQU +1 GOTO LBL "Re_Pos"
7  FN 18: SYSREAD Q3 = ID240 NR8 IDX9
8  FN 9: IF +0 EQU +0 GOTO LBL "Write_Kin"
9  LBL "Re_Pos"
10 FN 18: SYSREAD Q3 = ID240 NR1 IDX9
11 LBL "Write_Kin"
12 WRITE TO KINEMATIC AT COLUMN "COORD" CAPTURE "DOC" KEY "Compensation W" ~
    =-Q3
13 LBL "END"
14 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
15 END PGM M313 MM