Jason Aller Floppy Collection/153.img/TELES.ZIP/TAG.PAS

Pascal/Delphi Source File | 1988-07-15 | 148b | 4 lines

    while (rn<>0) and (not abort) and (not hangup) do begin
      seek(ulff,rn); read(ulff,f); dlx(f,rn,abort);
      nrecno(fn,pl,rn);
    end;