RosettaCodeData/Task/Variables/Commodore-BASIC/variables-2.basic

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