Une horloge inutile

' horloge hexa
' janvier 2021

hint 0,"Esc pour quitter"
border_hide 0
width 0,width(0)-width_client(0)+146
height 0,height(0)-height_client(0)+32
font_name 0,"Courier"
font_size 0,26

alpha 1

alpha 2
left 2,54

alpha 3
left 3,108

alpha 4
left 4,35
caption 4,":"

alpha 5
left 5,89
caption 5,":"

while inkey$ <> chr$(27)
    if len(hex$(time_hour)) = 1
       caption 1,"0" + hex$(time_hour)
    else
       caption 1,hex$(time_hour)
    end_if
      
    if len(hex$(time_minute)) = 1
       caption 2,"0" + hex$(time_minute)
    else
       caption 2,hex$(time_minute)
    end_if

    if len(hex$(time_second)) = 1
       caption 3,"0" + hex$(time_second)
    else
       caption 3,hex$(time_second)
    end_if
    
    pause 200
end_while

terminate