10 print chr$(147);chr$(14);:ti$="0000000":rem see lines 420-460

430 t$=left$(ti$,2)+":"+mid$(ti$,3,2)+":"+mid$(ti$,5,2)+"."+right$(ti$,1)

5205 t$="":for d=1 to 7

5500 rem display live clock
5505 print chr$(147):print:print "Press a key to continue."
5510 t$=left$(ti$,2)+":"+mid$(ti$,3,2)+":"+mid$(ti$,5,2)+"."+right$(ti$,1)
5515 print chr$(19);"Time: "t$
5520 get k$:if k$="" then 5510
5525 print chr$(147);:return