! БИНАРНЫЕ  ЧАСЫ

gr.open 255,255,255,255
GR.ORIENTATION 1
GR.SCREEN w,h
gr.set.antialias 1

gr.cls

gr.text.size 32

gr.text.align 2

gr.color 255,75,75,75

gr.text.draw Hr,140,230,"Hr"

gr.text.draw Mi,240,230,"Mi"

gr.text.draw Se,340,230,"Se"

gr.text.align 2

gr.render

FOR b=1 to 6

gr.text.draw K1,375,(b*75)+200,str$(2^(6-b))

NEXT b

DO

  x=340
  y=640

! Читаем системное время 

TIME year$, month$, day$, hour$, minute$, second$, weekday, isdst

t$=hour$+minute$+second$

t=VAL(MID$(t$,1,2))

 ! секунды

 n=VAL(MID$(t$,5,2))

  IF n<>no THEN

    no=n

    c=2

    b$=RIGHT$("00000"+BIN$(n),6)

    FOR b=6 TO 1 STEP -1

      st=VAL(MID$(b$,b,1))

      GOSUB  LEDShow

      y=y-75

    NEXT b

    b$=RIGHT$("00000"+BIN$(VAL(MID$(t$,3,2))),6)

    c=1
    x=x-100
    y=640

    FOR b=6 TO 1 STEP -1

      st=VAL(MID$(b$,b,1))

gosub LEDShow

      y=y-75

    NEXT b

    b$=RIGHT$("0000"+BIN$(VAL(MID$(t$,1,2))),5)

    c=0

    x=x-100

    y=640

    FOR b=5 TO 1 STEP -1

      st=VAL(MID$(b$,b,1))

gosub LEDShow

       y=y-75

     NEXT b

  ENDIF

! LOOP

UNTIL g

         LEDShow:

  IF st THEN

   
sw.begin c

   
    sw.case 0
      gr.COLOR 255,100,0,0

   
    sw.case 1
      gr.COLOR 255,100,100,0

    
    sw.case 2
      gr.COLOR 255,0,100,0

    sw.end

  ELSE

  
    sw.begin c

   
    sw.case 0
      gr.COLOR 255,25,0,0

   
    sw.case 1
      gr.COLOR 255,25,25,0

   
    sw.case 2
      gr.COLOR 255,0,25,0

   
    sw.end

  ENDIF

  gr.CIRCLE ac,x,y,20

  gr.COLOR 255,0,0,0

  gr.CIRCLE bc,x,y,20

  gr.CIRCLE cc,x,y,19

  gr.COLOR 100,100,100,20

  gr.CIRCLE fc,x-(5),y,10

  gr.COLOR 100,100,100,25

  gr.CIRCLE dc,x-(5),y,7

  gr.COLOR 100,100,100,30

  gr.CIRCLE ec,x-(5),y,5


gr.render

return