home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / BAMBUS.PAS < prev    next >
Pascal/Delphi Source File  |  1998-12-20  |  1KB  |  90 lines
  1.  
  2.  
  3. uses dos,crt,slova,matika;
  4.  
  5. var i,j,par,k,l,m,n,o,coko : integer;
  6.     radk,rad,kus,sfs,para,parb : string;
  7.     aa,bb,cc,ee,ff,gg:text;
  8.     znak:char;
  9.  
  10.  
  11.  
  12.  
  13.  
  14. begin
  15.  
  16. rad:='a.dbf';
  17.  
  18. assign(aa,'C:\trell\convert.dll');
  19. assign(bb,'bambus');
  20.  
  21. sfs:=fsearch('C:\trell\convert.dll',GetEnv('path'));
  22. if not(sfs='') then
  23. begin
  24.  
  25.  
  26. reset(aa);
  27. rewrite(bb);
  28.  
  29. j:=1;
  30. while not(eof(aa)) do
  31. begin
  32.  readln(aa,rad);
  33.  
  34.  if ord(rad[0])>74 then
  35.  begin
  36.    kus:='';
  37.    for i:=25 to 31 do kus:=kus+rad[i];
  38.    if kus=' SAZBA ' then
  39.    begin
  40.      j:=2;
  41.      writeln(bb,rad);
  42.    end;
  43.  end;
  44.  
  45.  if j=1 then writeln(bb,rad);
  46.  
  47.  if j=2 then
  48.  begin
  49.    for k:=1 to 5 do
  50.    begin
  51.  
  52.      readln(aa,radk);
  53.      readln(aa,rad);
  54.      kus:='';
  55.      for i:=55 to 74 do kus:=kus+rad[i];
  56.      kus:=bezmez(kus);
  57.      if not((kus='0,00')or(kus='0.00')) then
  58.      begin
  59.        writeln(bb,radk);
  60.        writeln(bb,rad);
  61.      end;
  62.  
  63.    end;
  64.    j:=1;
  65.  end;
  66.  
  67. end;
  68.  
  69. close(bb);
  70. close(aa);
  71.  
  72. reset(bb);
  73. rewrite(aa);
  74. while not(eof(bb)) do
  75. begin
  76.   readln(bb,rad);
  77.   writeln(aa,rad);
  78. end;
  79. close(bb);
  80. close(aa);
  81.  
  82. erase(bb);
  83.  
  84.  
  85. end;     { konec dll }
  86.  
  87.  
  88.  
  89.  
  90. end.