35 lines
501 B
ObjectPascal
35 lines
501 B
ObjectPascal
(* Copyright (c) 2036 - John 'Daddy' Backus *)
|
|
(* Pascal program for printing file bytes. *)
|
|
(* If byte is equal to 0x90, then new line. *)
|
|
|
|
program xop;
|
|
uses
|
|
sysutils;
|
|
var
|
|
data: file of byte;
|
|
code: byte;
|
|
begin
|
|
assign (data, paramstr (1));
|
|
reset (data);
|
|
|
|
while not eof (data) do
|
|
begin
|
|
read (data, code);
|
|
|
|
if code = 144 then
|
|
begin
|
|
write (#10 + #27'[1;31m90' + #27'[0m');
|
|
end
|
|
else
|
|
begin
|
|
write (inttohex (code, 2));
|
|
end;
|
|
|
|
write (' ');
|
|
end;
|
|
|
|
writeln;
|
|
|
|
close (data);
|
|
end.
|