' ********************
' **  Binary Clock  **
' **    (C) 2011    **
' ** Thomas Krueger **
' ********************

GRAPHICS ON
COLOR 0,0,0
CLS
SETSCALE 480,800
TEXTSIZE 32
TEXTALIGN 0
TEXTCOLOR 75,75,75
DRAWTEXT "Hr",140,230,0,1
DRAWTEXT "Mi",240,230,0,1
DRAWTEXT "Se",340,230,0,1

TEXTALIGN -1
FOR b=1 TO 6
  DRAWTEXT STR$(2^(6-b)),375,(b*75)+200,0,1
NEXT b

DO
  x=340
  y=640
  t$=FORMATTIME$(TIME(),"HHmmss")
  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
  WAIT 1
LOOP

LEDShow:
  IF st THEN
    SELECT c
    CASE 0
      COLOR 100,0,0
    CASE 1
      COLOR 100,100,0
    CASE 2
      COLOR 0,100,0
    END SELECT
  ELSE
    SELECT c
    CASE 0
      COLOR 25,0,0
    CASE 1
      COLOR 25,25,0
    CASE 2
      COLOR 0,25,0
    END SELECT
  ENDIF
  CIRCLE x,y,20,1
  COLOR 0,0,0
  CIRCLE x,y,20
  CIRCLE x,y,19
  COLOR 100,100,100,20
  CIRCLE x-(5),y,10,1
  COLOR 100,100,100,25
  CIRCLE x-(5),y,7,1
  COLOR 100,100,100,30
  CIRCLE x-(5),y,5,1
RETURN