{ FYZIC.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Fyzicke citanie DVF suboru od urcitej pozicie.                    }
{                                                                   }
{ Datum:19.06.1995                            http://www.trsek.com  }

program fyzicky_citaj_DBF;
uses crt,dos;
const meno='demo.dbf';
var f:file of char;
    x,y,s:integer;
    ch:char;

procedure fyz_cit_dbf;
begin
 clrscr;
 writeln(meno);
 assign(f,meno);
 reset(f);
 x:=0;y:=2;s:=0;
 repeat
  x:=x+1;
  if x>8 then begin y:=y+1;x:=1;end;
  if y>22 then
     begin s:=s+1;y:=22;gotoxy(1,2);delline; end;
  read(f,ch);
  gotoxy(4*x,y);write(ord(ch):3);
  gotoxy(x+55,y);write(ch);
 until (eof(f) or (s+y>41));
 close(f);
 repeat until keypressed;
end;

begin
 fyz_cit_DBF;
end.