mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:28:12 +02:00
28 lines
349 B
ObjectPascal
28 lines
349 B
ObjectPascal
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.
|
|
|