REM Start of BASIC! Program

console.title " B I N A R I   C L O C K  C O N S O L"

do
time ,,,her$,min$,sek$
?"            "her$;":";min$;":";sek$
her=val(her$)
her$=bin$(her)
min=val(min$)
min$=bin$(min)
sek = val(sek$)
sek$=bin$(sek)

!---------1---------*

her$="00000"+her$
her$=RIGHT$(her$,6)
?"H "her$

min$="00000"+min$
min$=RIGHT$(min$,6)
?"M "min$

sek$="00000"+sek$
sek$=RIGHT$(sek$,6)
?"S "sek$


!----------2--------*

i=6
do
hr$=mid$(her$,i,1)
mn$=mid$(min$,i,1)
sk$=mid$(sek$,i,1)
if i=6 then n$="1   "
if i=5 then n$="2   "
if i=4 then n$="4   "
if i=3 then n$="8   "
if i=2 then n$="16  "
if i=1 then n$="32  "

?n$;"-     ";hr$;".  ";mn$;".  ";sk$

i=i-1
until i=0
?".         H.  M.  S."
pause 1000
cls
until flaf>0

!-- CANCEL! PROG...--