This displays hh:mm:ss in the middle of the screen and increments the time. I didnโt put a whole lot into this because Iโm not sure what youโre after. This is on my TI 89 Titanium.
Code:
test()
Prgm
ClrIO
Lbl a
getTime→t
Output 30,50," "
Output 30,62,":"
Output 30,80,":"
Output 30,50,t[1]
Output 30,68,t[2]
Output 30,85,t[3]
Output 40,50,"hh:mm:ss"
Goto a
EndPrgm
Hereโs another version that shows just the hh:mm:ss in the middle of the screen. This version shows a leading zero when the h, m, s only has a single digit. In this version, Iโm formatting the time into 1 string and outputting that to the screen.
Code:
test()
Prgm
ClrIO
Lbl a
getTime→t
"0"&string(t[1])→h
"0"&string(t[1])→m
"0"&string(t[1])→s
right(h,2)&":"&right(m,2)&":"&right(s,2)→y
Output 30,50,y
Goto a
EndPrgm