blob: 01d608fd2e925e4782e7ab83ce4c994c591e362d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
program dumpfile;
Var
F : File of Byte;
Col : Integer;
B : Byte;
begin
Assign(F,Paramstr(1));
Reset(F);
Col:=1;
while not eof(f) do
begin
Read(F,B);
write(HexStr(B,2),' ');
Col:=Col+3;
If Col>72 then
begin
Writeln;
Col:=1;
end;
end;
Close(f);
If Col<>1 then
Writeln;
end.
|
