ja klar:

Hier ein Ausschnitt

Code:
$regfile = "M32def.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
 
Config Serialin = Buffered , Size = 60 , Bytematch = 013    ' Serielles Input
'Ausgänge:
Zeit_segmente Alias Portc.7                                 ' Ausgang für die Uhr
Rennz Alias Portc.6                                         ' Ausgang für die verbleibende Restzeit
Licht_5 Alias Portc.5                                       ' Ausgang für Lampe 5
Licht_4 Alias Portc.4                                       ' Ausgang für Lampe 4
Licht_3 Alias Portc.3                                       ' Ausgang für Lampe 3
Licht_2 Alias Portc.2                                       ' Ausgang für Lampe 2
Licht_1 Alias Portc.1                                       ' Ausgang für Lampe 1

Do
Ttyp = Mid(telegramm , 2 , 1)
If Ttyp = Lebensz Then
Call Zeit(telegramm)
End If
If Ttyp = Platzt Then
Call Platz(telegramm)
End If
 
Loop
End
 
Sub Serial0charmatch()
Input Telegramm Noecho
End Sub Serial0charmatch()
 
Zeit:
Uz_std10 = Mid(telegramm , 5 , 1)
Uz_std1 = Mid(telegramm , 6 , 1)
Uz_min10 = Mid(telegramm , 7 , 1)
Uz_min1 = Mid(telegramm , 8 , 1)
Uz_sek10 = Mid(telegramm , 9 , 1)
Uz_sek1 = Mid(telegramm , 7 , 1)
 
If Uz_std10 = "0" Then
   Uz1 = Seg_array(10)
   Else
   Uz1 = Seg_array(uz_std10)
End If
If Uz_std1 = "0" Then
    Uz2 = Seg_array(10)
    Else
    Uz2 = Seg_array(uz_std1)
    End If
If Uz_min10 = "0" Then
    Uz3 = Seg_array(10)
    Else
    Uz3 = Seg_array(uz_min10)
End If
If Uz_min1 = "0" Then
   Uz4 = Seg_array(10)
   Else
   Uz4 = Seg_array(uz_min1)
End If
If Uz_sek10 = "0" Then
   Uz5 = Seg_array(10)
   Else
   Uz5 = Seg_array(uz_sek10)
End If
If Uz_sek1 = "0" Then
   Uz6 = Seg_array(10)
   Else
   Uz6 = Seg_array(uz_sek1)
End If
LA1 = Mid(telegramm , 5 , 1)
LA2 = Mid(telegramm , 6 , 1)
LA3 = Mid(telegramm , 7 , 1)
LA4 = Mid(telegramm , 8 , 1)
LA5 = Mid(telegramm , 9 , 1)
If LA1 = "1" Then
   Licht_1 = 1
   Else
   Licht_1 = 0
End If
If LA2 = "1" Then
   Licht_2 = 1
   Else
   Licht_2 = 0
End If
If LA3 = "1" Then
   Licht_3 = 1
   Else
   Licht_3 = 0
End If
If LA4 = "1" Then
   Licht_4 = 1
   Else
   Licht_4 = 0
End If
If LA5 = "1" Then
   Licht_5 = 1
   Else
   Licht_5 = 0
End If
Shiftout Data_channel , Clock_channel , Uz1
   Shiftout Data_channel , Clock_channel , Uz2
   Shiftout Data_channel , Clock_channel , Uz3
   Shiftout Data_channel , Clock_channel , Uz4
   Shiftout Data_channel , Clock_channel , Uz5
   Shiftout Data_channel , Clock_channel , Uz6
   Pulseout zeit_strobe_port , zeit_strobe_pin , 10000
Return