TP7

      MOV    CX,55
      DIV    CX
      MOV    DelayCnt,AX

program bpzeropatch;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
  Sign = #$F7#$D0#$F7#$D2#$B9;
  Patch : word = $FFFF;
var
  F : File;
  S : string;
  P : integer;
begin
  if ParamCount = 0 then
    begin
      writeln('Usage:');
      writeln('filename [patch]');
      exit;
    end;
  if ParamCount > 1 then Patch := strtoint(ParamStr(2));
  Assign(F, ParamStr(1));
  Reset(F, 1);
  Setlength(S, FileSize(F));
  BlockRead(F, S[1], length(S));
  P := pos(Sign, S);
  if P = 0 then
    writeln(format('%s : File is packed, or no error exist.', [ParamStr(1)]))
  else
    begin
      inc(P, length(Sign));
      Seek(F, P-1);
      BlockWrite(F, Patch, sizeof(Patch));
      writeln(format('%s : Successful file patched. Old value: %.2x%.2x',
          [ParamStr(1), ord(s[p+1]), ord(s[p])]));
    end;
  Close(F);
end.