Hallo,

ich wollte lt. Bascom Hilfe, eine Zeit messen.

Ich bekomme mit folgenden Code ständig folgende Ausgabe "Now it's 0 seconds later 23155200". Die interne Uhr scheint also zu stehen.

Was mache ich falsch?

Danke für Eure Hilfe.

Code:
$regfile = "m88adef.dat"
$crystal = 8000000
$hwstack = 48
$swstack = 48
$framesize = 48
$baud = 500000


Enable Interrupts
Config Clock = Soft

Dim Lsystemtimestamp As Long
Dim Lsystemsecondselapsed As Long

Lsystemtimestamp = Syssec()
Print "Now it's " ; Lsystemtimestamp ; " seconds past 2000-01-01 00:00:00"


Do

   Wait 3
   Lsystemsecondselapsed = Syssecelapsed(lsystemtimestamp)
   Print "Now it's " ; Lsystemsecondselapsed ; " seconds later " ; Lsystemtimestamp


Loop

End