This does what you want.
char s[200],name[61],nameo[61],if1[256],of1[256],tmp[2000],tmpo[2000];
int i,larghezza,found;
window(screenwidth/3, screenheight*.75);
larghezza=screenheight*.75/9;`opt
strcpy(if1, "d:\in\in.txt");`input only
strcpy(of1, "d:\in\out.txt");`i/o
strlist(0, s, 0);
i=0;
while (TRUE = lineread(if1, tmpo))
{
substr(tmpo, 0, 60, nameo);
if (strlist(12, nameo, 0) < 0)
{
strlist(3, nameo, 0);
i += 1;
}
}
strcpy(s, "d:\in\out.txt");`i/o
strlist(8, s, 0);
strset(s, "Finished processing imported %3d", i);
say("",s); `
@close;
run;
:close;
quit;