home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_48.arc / RLEDCOMP.ARC / CFREQ.PAS next >
Encoding:
Pascal/Delphi Source File  |  1989-05-19  |  479 b   |  29 lines
  1. { Support code from Micro Cornucopia Magazine Issue #48
  2.  
  3. Micro Cornucopia
  4. PO Box 223
  5. Bend, OR 97709 }
  6.  
  7.  
  8. program cfreq;
  9. uses crt;
  10.  
  11. var f1 : file;
  12.      b, i : byte;
  13.     ba : array [0..255] of word;
  14. begin
  15.   assign(f1, 'x1.dat');
  16.   reset(f1, 1);
  17.   for i := 0 to 255 do
  18.     ba[i] := 0;
  19.   while not eof(f1) do
  20.   begin
  21.     blockread(f1, b, 1);
  22.     ba[b] := ba[b] + 1;
  23.   end;
  24.   clrscr;
  25.   for i := 0 to 255 do
  26.   begin
  27.     writeln(i,' ',ba[i], '  ')
  28.   end
  29. end.