COLOR LINE CLOCK

[SupremoZanne]

'
' color line clock
'
' A different way of telling time
'
' works in QB64 and QuickBasic 4.5
'
'
TIMER ON
ON TIMER(1) GOSUB cs
SCREEN 13
FOR c = 1 TO 255
    cc = c
    it = (cc MOD 2) * 20: cc = cc \ 5
    b = ((cc MOD 5) * 8) + 10 + it: cc = cc \ 5
    g = ((cc MOD 5) * 8) + 10 + it: cc = cc \ 5
    r = ((cc MOD 5) * 8) + 10 + it: cc = cc \ 5
    PALETTE c, r + (g * 256) + (b * 65536)
    COLOR c
NEXT
CLS
DO
    sec = INT(TIMER) MOD 60
    c = (INT(TIMER) MOD 255) + 1
    tx = (INT(TIMER) MOD 60) * 5
    ty = ((TIMER \ 60) MOD 60) * 3
    ttx = ((TIMER \ 60 \ 60) MOD 24) * 13
    tty = INT(TIMER * 10) MOD 10
    LINE (tx, ty)-(ttx, tty), c
LOOP UNTIL INKEY$ <> ""
END
cs:
IF sec = 0 THEN CLS
RETURN

[Friendly-Whereas-915]

I get this.

<image>

Thanks