Dim Wert1 As String * 1
Dim Wert2 As String * 1
Dim Wert3 As String * 1
Dim Wert4 As String * 1
Dim Min1 As Byte
Dim Min10 As Byte
Dim Temp As Byte
Dim Temp1 As Byte
Dim Temp2 As Byte
Dim Std1 As Byte
Dim Std10 As Byte

Zeit_ausgabe:

   Wert1 = Mid(time$ , 5 , 1)                               'Ermitteln Minuten Einer
   Wert2 = Mid(time$ , 4 , 1)                               'Ermitteln Minuten Zehner
   Wert3 = Mid(time$ , 2 , 1)                               'Ermitteln Stunden Einer
   Wert4 = Mid(time$ , 1 , 1)                               'Ermitteln Stunden Zehner

 ' *************** Routine zur Ausgabe im min1 und min10

   Temp1 = Wert1 - 3                      		'Umwandlung String --> byte -3 zur Korrektur?
   Temp2 = Wert2                                            'Umwandlung String --> Byte
   Shift Temp1 , Left , 4                                   'nach links schieben
   Temp2 = Temp2 + Temp1                                    'Verknüpfen Nibbles
   Porta = Temp2                                            'Ausgabe BCD Wert an SN74141 über PortA

 ' *************** Routine zur Ausgabe im std1

   Temp = Temp And $f0
   Temp = Temp + Wert3
   Portb = Temp                                             'Ausgabe BCD Wert an SN74141 über PortB

' *************** Routine zur Ausgabe im std10

   Temp = Temp And $f0
   Temp = Temp + Wert4
   Portc = Temp                                             'Ausgabe BCD Wert an SN74141 über PortC

Return