Hi,
hier eine kleine Funktion zum Anzeigen einer Zeit :)
// --------------------------------- //
// Project: FormatTime
// Start: Monday, August 08, 2005
// IDE Version: 2.50727
LET StartTime = GETTIMERALL() / 1000
WHILE 1
LET Zeit = (GETTIMERALL() / 1000) - StartTime
PRINT FormatTime$(Zeit), 10, 10
SHOWSCREEN
WEND
// ------------------------------------------------------------- //
// -=# FORMATTIME #=-
// ------------------------------------------------------------- //
FUNCTION FormatTime$: ftSeconds
LET ftTime$ = FORMAT$(2, 2, (ftSeconds / 60))
SPLITSTR(ftTime$, ftArray$[], ".")
IF ftArray$[1] <> "00"
LET ftMin = ftArray$[0]
LET ftSec = FORMAT$(1, 0, (ftSeconds - (ftMin * 60)))
IF ftSec = 60
LET ftSec = 0
LET ftMin = ftMin + 1
ENDIF
IF ftSec < 10
LET ftSec$ = "0" + ftSec
ELSE
LET ftSec$ = ftSec
ENDIF
LET ftTime$ = FORMAT$(2, 0, ftMin) + ":" + ftSec$
ELSE
LET ftTime$ = FORMAT$(2, 0, ftArray$[0]) + ":" + ftArray$[1]
ENDIF
RETURN ftTime$
ENDFUNCTION // FORMATTIME