This is the Solution :-)

DEBUGIN [WAIT("E0"),Daten[13],Daten[12],Daten[11], Daten[10], Daten[9],Daten[8], Daten[7],Daten[6], Daten[5], Daten[4], Daten[3], Daten[2], Daten[1], Daten[0]]
Pause 50
for N = 13 to 1 step - 2
Daten[N]= ((Daten[N]-$30) *10) + (Daten[N-1]-$30)
Pause 5
next N
High Led_Tag
Gosub ReadTime
Gosub Read_BCD

HSEROUT ["E0",hex2 Daten[13],hex2 Daten[11],hex2 Daten[9],hex2 Daten[7],hex2 Daten[5],hex2 Daten[3],hex2 Daten[1],13,10]

Regards Pesti