%% ProgramName=DaqProgram
program %ProgramName%;
var
 b         : Boolean;
 Ok        : Boolean;
 errors    : Integer;
 errorcode : Integer;
begin
 {
 Initialization actions on Start
 }
 if runcount=1 then begin
  errors:=0;
  errorcode:=registererr(devname+'-'+progname);
  writeln(devname+' start');
  if errors<>0 then b:=fixerror(errorcode);
  Ok:=(errors=0);
 end else
 {
 Finalization actions on Stop
 }
 if isinf(runcount) then begin
  writeln(devname+' stop');
 end else
 {
 Actions on Poll
 }
 if Ok then begin
  writeln(devname+' RunCount=',runcount:7:0);
 end;
end.

