0  BEGIN PGM M79 MM 
1  WRITE TO PLC KEY "WG_Nummer_aktives_NC_Macro" =+79 ; NUMBER NC MACRO ON
2  READ FROM PLC KEY "MG_PLC_Preset_Tabelle_aktiv" TO Q10
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  READ FROM PLC KEY "BG_FN19_PLC_Preset_Nr" TO Q20
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 WRITE TO PLC KEY "WG_Nummer_aktives_NC_Macro" =-1 ; NC MACRO OFF
22 END PGM M79 MM