Program Prog;
procedure ClearCrashData;
var data: integer;
    a: integer;
    b: integer;
    c: integer;
    d: 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 := $980 to $9FF do
SetByteHexEdit( a ,data);
RefreshHexEdit;
data := $FF;
for b := $A80 to $ABF do
SetByteHexEdit( b ,data);
RefreshHexEdit;
data := $FF;
for c := $B40 to $B7F do
SetByteHexEdit( c ,data);
RefreshHexEdit;
data:=$FF
for d :=$BC0 to $BD7 do
SetByteHexEdit( d ,data);
RefreshHexEdit;
    end;
end;
end;
begin
  AddDeviceGroup( 'AIRBAG', 'Select a Device' );
  AddDevice( 'C4 603 72 61 00_9653493780 - AB- 95320', 'ST95320','AIRBAG', 'ST95320');
  AddAction( 'Clear Crash Data', 'ClearCrashData', 'C4 603 72 61 00_9653493780 - AB- 95320' );
  AddMsg('Script (C4_603726100_9653493780-AB_95320.uds) Installed '#169' 2010 PEHLÝVANOTO cephane2004@hotmail.com');
  SetProductInfo( 'Script', 'Device Script'#$D'Copyright'#169' 2010 PEHLÝVANOTO' );
end.