{Default-Einstellungen}
  EEDefArray: Array[0..3] of Byte =
  (
  0,0,0,0                //
  );



  procedure DefCopyFromEE;
{Defaults aus EEPROM holen}
begin
  for i := 0 to 3 do
    settable(EditArray, i+9, EEDefArray[word(i)]);
  endfor;
end;

procedure DefCopyToEE;
{Defaults in EEPROM (Patchnum 0)speichern}
var myPatchAdr: Word;
begin
  for i := 0 to 3 do
    EEDefArray[word(i)]:= gettable(EditArray, i+9);
  endfor;
end;


procedure WriteLeveldB;
var blank:boolean;
{Teil des EditArray darstellen, Anzahl 8}
begin
  LCDout_M(#45);   //"-"
  digits:=2;
  ItemValue:= LeveldB;
  WriteItem;
  ROMStr16Out(@dBStr);
end;

procedure WriteLevelmV;
var blank:boolean;
{Teil des EditArray darstellen, Anzahl 8}
begin
  LCDout_M(#45);   //"-"
  digits:=2;
  ItemValue:= 7;
  WriteItem;
  ItemValue:= 75;
  WriteItem;
  ROMStr16Out(@mVStr);
end;