I want to make a makro for a infrared screen.
Only while running a G-code and there is an input from the infrared screen .
The machine will go in reset or stop state.
Where do I have to start?

I have now this:
   Sub Main
   
      If  GetOEMLED(1000) Then ' is run
      
         
      
      If IsActive(INPUT1)And (GetLed(116) = true) Then
 
      DoOemButton(1004)      ' 1004 DoOemButton stop
      End If
      
      End If
      
   End Sub 


It is not working, any idea?

try this

   Sub Main()
      If  GetOEMLED(804) Then ' is run
        If IsActive(INPUT1)And (GetLed(116) = true) Then
          DoOemButton(1004)      ' 1004 DoOemButton stop
        End If
      End If     
   End Sub