Bascom Counter Darstellung

[DLikS (Gast)]

Hallo
Ich habe folgendes gecodet:

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 100
$swstack = 100
$framesize = 100


Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
   Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 24 * 2
Cursor Off

Dim Initcounter As Byte
Dim Bt As Byte
Dim S As String * 2


Do
   For Initcounter = 1 To 36
      'LCD löschen
      Cls

      'Haupttext der ersten Zeile anzeigen
      Locate 1 , 1
      Lcd "-=[ You Armed Me ]=-"

      'Haupttext der zweiten Zeile anzeigen
      Locate 2 , 2
      Lcd "Countdown"

      'Jede Sekunde um 1 herunterzählen und neuen Wert anzeigen
      For Bt = 100 To 1 Step -1

         'Neuen Wert in einen Text umwandeln
         S = Str(bt)
         S = Format(s , "000")

         'Neuen Wert in der zweiten Zeile ab Spalte 15 anzeigen
         Locate 2 , 15
         Lcd S

          'Eine Sekunde warten
         Wait 1
      Next Bt

      'Das LCD nach ca. einer Stunden neu initialisieren
      If Initcounter = 36 Then
         Initlcd
      End If
   Next Initcounter
Loop

End

Mein Problem ist folgendes: Der Countdown zählt praktisch nur 
100,099,098 usw. Wie könnte ich eine Ansicht wie etwa 00:00:00 bekommen, 
also Stunden und Minuten? Geht das mit diesem Code überhaupt?

MfG