%%HP: T(3)A(D)F(.);
@ BCLOCK by Abhijeet J. Singh
DIR
  CLK
    \<< "" \-> TM
      \<< PICT PURGE { # 0h # 0h } PVIEW
          PICT { # 26h # 0h } DC REPL
          PICT { # 53h # 0h } DC REPL
        WHILE 1 1 ==
        REPEAT DATE TIME TSTR 'TM' STO
          PICT { # 0h  # 0h } "D" TM 14 14 SUB + OBJ\-> REPL
          PICT { # 13h # 0h } "D" TM 15 15 SUB + OBJ\-> REPL
          PICT { # 2Dh # 0h } "D" TM 17 17 SUB + OBJ\-> REPL
          PICT { # 40h # 0h } "D" TM 18 18 SUB + OBJ\-> REPL
          PICT { # 5Ah # 0h } "D" TM 20 20 SUB + OBJ\-> REPL
          PICT { # 6Dh # 0h } "D" TM 21 21 SUB + OBJ\-> REPL
        END
      \>>
    \>>
  DC
GROB 7 19 0000000000C1C1C1000000C1C1C10000000000
  D1
GROB 19 19 0070000870000C70000C70000070000070000070000070000070000070000070000070000070000070000070000070000070000CF1000CF100
  D2
GROB 19 19 CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10C10000C10000C10000C10000C10000CFFF10CFFF10CFFF10
  D3
GROB 19 19 CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10
  D4
GROB 19 19 C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10000C10000C10000C10
  D5
GROB 19 19 CFFF10CFFF10CFFF10C10000C10000C10000C10000C10000CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10
  D6
GROB 19 19 CFFF10CFFF10CFFF10C10000C10000C10000C10000C10000CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10
  D7
GROB 19 19 CFFF10CFFF10CFFF10000C10000E10000F0000870000C30000E10000F000007000007000007000007000007000007000007000007000007000
  D8
GROB 19 19 CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10
  D9
GROB 19 19 CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10000C10000C10000C10000C10000C10CFFF10CFFF10CFFF10
  D0
GROB 19 19 CFFF10CFFF10CFFF10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10C10CFFF10CFFF10CFFF10
END