14 lines
399 B
Plaintext
14 lines
399 B
Plaintext
1 rem time since last reset
|
|
5 print chr$(147);chr$(14);
|
|
10 t$=ti$
|
|
20 h$=left$(t$,2)
|
|
30 m$=mid$(t$,3,2)
|
|
40 s$=right$(t$,2)
|
|
50 print chr$(19);"Roughly ";tab(9);h$;" hours "
|
|
51 print tab(9);m$;" minutes"
|
|
52 print tab(9);s$; " seconds":print
|
|
60 print "has elapsed since TI$ was last reset or"
|
|
65 print "the system was powered on.":print
|
|
70 print "Press any key to quit."
|
|
80 get k$:if k$="" then goto 10
|