program new;
var
  dtm,x,y, w, h:integer;
  ppdtm:pdtm;
begin
  getclientdimensions(w,h);
  writeln(inttostr(w) + ',' + inttostr(h));
  dtm := DTMFromString('78DA63F4606460F0634001E181810C46401A2' +
          '8C3F01F0818AD31D54064612490B601B28209A87105B2A209A8F1' +
          '23424D38901540841A2FFC6A00C8100982');

  if finddtm(dtm, x,y, 0, 0, w-1,h-1) then
  begin
    writeln('found');
    movemouse(x,y);
  end else
    writeln('not found');
  if getdtm(dtm, ppdtm) then
    writeln('yay');
  printpdtm(tdtmtopdtm(pdtmtotdtm(ppdtm)));
  dtm := addpdtm(ppdtm);
  freedtm(dtm);
  // old dtm is not freed, since it is overridden by addpdtm.
end.