XProfan

Declare zeit$, zeit_char$, place&
Var mod&=2
Var size&=40
Windowstyle 24
WindowTitle "Binäruhr"
Window (%MaxX-(8+size&*If(mod&=1,6,If(mod&=2,9,13))))/2, (%MaxY-(28+size&*5))/2 - 8+size&*If(mod&=1,6,If(mod&=2,9,13)),28+size&*5
CLS 0

WhileNot iskey(27)

    Sleep 5*10^(4-(Mod&+(Mod&=3)))
    Case mod&=1 : zeit$ = dt("getTime", 0)
    Case mod&=2 : zeit$ = dt("getTime", 2)
    Case mod&=3 : zeit$ = dt("getTime", 0)+":"+Translate$(dt("getTime", 1),".",":")

    whileloop 1,Len(zeit$)

        place&=&loop
        zeit_char$=Mkstr$("0",Val(SUBSTR$("2,4,0,3,4,0,3,4,0,3,4,4",place&,","))-Len(Bin$(Val(Mid$(zeit$,&loop,1)))))+Bin$(Val(Mid$(zeit$,&loop,1)))

        whileloop 1,Len(zeit_char$)

            UsePen 0,2,0
            UseBrush 1,If(Val(Mid$(zeit_char$,Len(zeit_char$)-&loop+1,1)),255,RGB(200,200,200))
            Casenot (place&=3) or (place&=6) or (place&=9)   : Ellipse (size&/2)+((place&-1)*size&),(height(%hwnd)-((size&/2)+((&loop-1)*size&))) -(size&/2)+(place&*size&),height(%hwnd)-((size&/2)+(&loop*size&))

        Endwhile

    EndWhile

EndWhile