Program Prog;
procedure ClearCrashData;
var data: integer;
    a: integer;
begin
  if not ReadDevice then begin
    MsgBox( 'Read Error', 'Error', MB_OK );
  end
else begin
  SetProgramModifiedOnly( true );
    if MsgBox( 'Erase Crash Data?', 'Confirm', MB_YESNO ) = IDYES then begin
data := $FF;
for a := $10 to $fF do
SetByteHexEdit( a ,data);
RefreshHexEdit;
    end;
end;
end;
begin
  AddDeviceGroup( 'NISSAN', 'Select a Device' );
  AddDevice( 'airbag Primiera HC912B32', 'MC68HC912B32','NISSAN', 'MC68HC912B32');
  AddAction( 'Clear Crash Data', 'ClearCrashData', 'airbag Primiera HC912B32' );
  AddOpenFileAction( 'Label', 'airbag Primiera HC912B32', 'label.jpg' );
  AddOpenFileAction( 'Board', 'airbag Primiera HC912B32', 'board.jpg' );
  AddMsg('Script (airbag_Primiera_HC912B32.uds) Installed '#169' 2010 Darius');
  SetProductInfo( 'Script', 'Device Script'#$D'Copyright'#169' 2010 Darius' );
end.