Print MsToMinAndSec$(3659000,1) ; max. 3659000 (bei Modus 1)
WaitKey


Function MsToMinAndSec$(Ms,Mode); Ms muss mindestens 1000 sein! | 1 - Min + Sec || 2 - Min || 3 - Sec

 Total_Secs = Ms / 1000

 If Mode = 3 Then
   If Total_Secs = 0 Then Return "Error"
     Mins$ = "00"
     If Total_Secs < 10 Then Secs$ = "0" + Str$(Total_Secs)
     If Total_Secs > 9 Then Secs$ = Str$(Total_Secs)
     If Total_Secs > 60 Then Return "Error"

     Return Mins$ + ":" + Secs$
 EndIf

 Total_Mins = Total_Secs / 60

 If Mode = 2 Then
   If Total_Mins = 0 Then Return "Error"
    Secs$ = "00"
    If Tolal_Mins < 10 Then Mins$ = "0" + Str$(Total_Mins)
    If Total_Mins > 9 Then Mins$ = Str$(Total_Mins)
    If Total_Mins > 60 Then Return "Error"

    Return Mins$ + ":" + Secs$
 EndIf

 If Mode = 1 Then

   If Total_Secs >= 60 Then
   
      If Total_Mins < 10 Then
         Mins$ = "0" + Str$(Total_Mins)
      Else
         Mins$ = Str$(Total_Mins)
         If Int(Mins$) > 60 Then Return "Error"
      EndIf

      Secs$ = Str$(Total_Secs - (Int(Mins$) * 60))
      If Int(Secs$) < 10 Then Secs$ = "0" + Secs$

      Return Mins$ + ":" + Secs$
   EndIf

   If Total_Secs < 60 Then
      Mins$ = "00"
      If Total_Secs < 10 Then
         Secs$ =  "0" + Str$(Total_Secs)
      Else
         Secs$ = Str$(Total_Secs)
      EndIf
   EndIf

   Return Mins$ + ":" + Secs$

 EndIf

End Function

While Not KeyHit(1)
   Cls
   hours = Floor(MilliSecs()/3600000)
   min = Floor(MilliSecs()/60000)-hours*60
   sec = Floor(MilliSecs()/1000)-min*60-hours*3600
   Text 10,10,hours+":"+min+":"+sec
Wend

Graphics 640,480,0,2
SetBuffer BackBuffer()

While Not KeyHit(1)
   Cls
   If KeyDown(205) Then t = t + 100
   If KeyDown(203) Then t = t - 100
   hours = Floor(Abs(t)/3600000)
   min = Floor(Abs(t)/60000)-hours*60
   sec = Floor(Abs(t)/1000)-min*60-hours*3600
   Text 10,10, t
   Text 10,25, String("-",t<0) + String("0",hours<10) + hours + ":" + String("0",min<10) + min + ":" + String("0",sec<10) + sec
   Flip
Wend

End