while(!in.IsEof()) {
    p <<= in.GetLine();
    num++;
    eNumLines <<= AsString(num);
    ProcessEvents();
}

while(num<100000) {
    p <<= in.GetLine();
    num++;
    PI.Set(num, 100000);
    ProcessEvents();
}