0  BEGIN PGM M79 MM 
1  FN 17: SYSWRITE ID 2000 NR70 IDX7098 =+79 ; 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  FN 20: WAIT FOR  SYNC
9  FN 18: SYSREAD Q20 = ID2000 NR60 IDX7023
10 FN 11: IF +Q20 GT +0 GOTO LBL 20
11 FN 14: ERROR= 380
12 STOP
13 FN 9: IF +0 EQU +0 GOTO LBL "END"
14 LBL 20
15 FN 26: TABOPEN TNC:\DATUM\PRESET.TAB
16 FN 28: TABREAD Q21 =Q20 /"DATUM_X,DATUM_Y,DATUM_Z"
17 FN 32: AXIS0:+Q21 AXIS1:+Q22 AXIS2:+Q23
18 FN 27: TABWRITE 0 /"ACTIVE,DATUM_X,DATUM_Y,DATUM_Z" = Q20
19 M79
20 LBL "END"
21 FN 17: SYSWRITE ID 2000 NR70 IDX7098 =-1 ; NC MACRO OFF
22 END PGM M79 MM