0  BEGIN PGM M70 MM 
1  WRITE TO PLC KEY "WG_Nummer_aktives_NC_Macro" =+70 ; 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  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 WRITE TO PLC KEY "WG_Nummer_aktives_NC_Macro" =-1 ; NC MACRO OFF
18 END PGM M70 MM