$regfile = "m32def.dat"
$crystal = 16000000                                         'Crystal = Quarz, hier 16 MHz
Baud = 9600

Dim Stelle(4) As Word
Dim Zahl As Word
Dim Temp As Word
Dim I As Byte
Dim Stunden As Byte
Dim Stundenzehner As Byte
Dim Stundeneiner As Byte
Dim Minuten As Byte
Dim Minuteneiner As Byte
Dim Minutenzehner As Byte


Zahl = 1204                                                 'Voreinstellung zum Testen

Temp = Zahl

For I = 1 To 4
 Stelle(i) = Temp Mod 10                                    'letzte Stelle in Ziffernvariable schreiben
 Temp = Temp / 10                                           'vorletzte Stelle zur letzten machen
Next I                                                      'das Ganze noch 3 x von vorn


Print Zahl
Print Stelle(4)
Print Stelle(3)
Print Stelle(2)
Print Stelle(1)

Stundenzehner = Stelle(4) * 10
Stundeneiner = Stelle(3) * 1
Stunden = Stundenzehner + Stundeneiner
Print Stunden
Minutenzehner = Stelle(2) * 10
Minuteneiner = Stelle(1) * 1
Minuten = Minutenzehner + Minuteneiner
Print Minuten