program bin_to_a;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Var F:File of byte;FO:TextFile;
    B:Byte;
    I:Integer;
begin
  if ParamStr(1)='' then
    Begin
      Writeln('X:\bin_to_a filename');
      Halt(1);
    End;

  Assign(F,ParamStr(1));Reset(F);

  if IoResult<>0 then
    Begin
      Writeln('No file "'+ParamStr(1)+'"');
      Halt(1);
    End;

  Assign(FO,ChangeFileExt(ParamStr(1),'.inc')); Rewrite(FO);
  I:=0;
  Repeat
    if I=0 then Write(FO,#9'.db ');
    Read(F,B); Write(FO,'0x',IntToHex(B,2));
    if I=15 then Begin I:=0; Writeln(FO); End else Begin Write(FO,','); Inc(I); End;
  Until Eof(F);
  Close(F); Close(FO);


end.