11-02-2022, 02:51 PM
Simple solution:
Code: (Select All)
'timer
s = 0
Do
_Limit 5
Cls
s = s + 1
If s > 59 Then
m = m + 1
s = 0
End If
Locate 1, 1: Print "00.00"
m$ = _Trim$(Str$(m)): s$ = _Trim$(Str$(s))
Locate 1, 3 - Len(m$): Print m$
Locate 1, 6 - Len(s$): Print s$
_Display
Loop