Module M_machine

    Sub get_machine_state()

        machine_state = Read_Nc_var(IniRead.nVar_NC_state)

    End Sub

    Sub set_var_prg_1_ok(ByVal state As Integer)

        Write_NC_var(IniRead.nVar_prg_1_ok, state)

    End Sub

    Sub set_var_prg_2_ok(ByVal state As Integer)

        Write_NC_var(IniRead.nVar_prg_2_ok, state)

    End Sub

End Module