# How to create the progress indicator for the following process?

Consider the code

Table1[m_]:=Table[{m,NIntegrate[Exp[-I*m*x],{x,0,1000}]},{i,0,8000,1}]
Table2=Join[Table1[1],Table1[5],Table1[0.2],Table1[0.08]]


How to create a progress indicator for the operation in the second row?

• So like an indicator that says "2/4" when it's solving Table1[5]? – C. E. Jun 10 '19 at 20:02
• @C.E. Yes, that's what I want. – John Taylor Jun 10 '19 at 20:35

Table1[m_] :=