0  BEGIN PGM M73 MM 
1  WRITE TO PLC KEY "WG_Nummer_aktives_NC_Macro" =+73 ; NUMBER NC MACRO ON
2  READ FROM PLC KEY "MG_Pendeln_ein" TO Q1
3  FN 10: IF +Q1 NE +1 GOTO LBL "NEW_RANGE"
4  FN 14: ERROR= 392
5  STOP
6  LBL "NEW_RANGE"
7  FN 31: RANGE:2
8  M73
9  WRITE TO PLC KEY "WG_Nummer_aktives_NC_Macro" =-1 ; NC MACRO OFF
10 END PGM M73 MM