- if (Tunes[tCurL].Tune <> E) and (Tunes[tCurL].Tune <> B) and
- (Tunes[tCurL].Tune <> Cis) and (Tunes[tCurL].Tune <> Dis) and
- (Tunes[tCurL].Tune <> Fis) and (Tunes[tCurL].Tune <> Gis) and
- (Tunes[tCurL].Tune <> Ais) then
- Tunes[tCurL].Tune := Tunes[tCurL].Octave + ETune // Normalstatus