13 lines
420 B
Plaintext
13 lines
420 B
Plaintext
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
|