test.f

int iMax=100000
string params = "file0.txt"

for(int i=1; i<iMax; i+=1)
    `params += ', file$[i].txt'`

poke($[params])
rmv($[params])