11-02-2022, 12:23 AM
So the zero is already displayed. . . until it becomes double digits.
And - Not very elegant, but simple.
Code: (Select All)
'timer
s = 0
Do
_Limit 5
Cls
s = s + 1
If s > 59 Then
m = m + 1
s = 0
End If
'tmp$ = "##:##"
Locate 1, 1
Print Using "##.0#"; m; s
_Display
Loop
And - Not very elegant, but simple.
Code: (Select All)
'timer
s = 0
Do
_Limit 5
Cls
s = s + 1
If s > 59 Then
m = m + 1
s = 0
End If
'tmp$ = "##:##"
Locate 1, 1
Print Using "##.0##"; m; s
_Display
Loop