0  BEGIN PGM M70 MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+70 ; NUMBER NC MACRO ON
2  FN 18: SYSREAD Q10 = ID2000 NR10 IDX8425
3  FN 9: IF +Q10 EQU +1 GOTO LBL 1
4  FN 14: ERROR= 392
5  STOP
6  FN 9: IF +0 EQU +0 GOTO LBL "END"
7  LBL 1
8  Q20 = 0
9  Q21 = 0
10 Q22 = 0
11 Q23 = 0
12 FN 26: TABOPEN TNC:\DATUM\PRESET.TAB
13 FN 27: TABWRITE 0 /"ACTIVE,DATUM_X,DATUM_Y,DATUM_Z" = Q20
14 FN 32: AXIS0:+0 AXIS1:+0 AXIS2:+0
15 M70
16 LBL "END"
17 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
18 END PGM M70 MM