%%HP: T(3)A(R)F(.);
@ VCLOCK, by Steve VanDevender
DIR
  SXWATCH
    \<< PICT RCL RCLF
PICT PURGE DEG -40
CF PICT { # 22h
# 0h } face REPL {
# 0h # 0h } PVIEW
TIME DUP hands at {
      \<<
        IFERR DROP2
hands TIME DUP
hands 0 WAIT
        THEN
        END rest
      \>> 491520 } +
STOALARM DROP
      IFERR 0 WAIT
      THEN
      END rest
    \>>
  hands
    \<< { # 41h # 1Fh
} DUP2 30 ROT FP 2
TRNC 600 * a\->p
TLINE 15 ROT HMS\->
30 * a\->p TLINE
    \>>
  a\->p
    \<< DUP2 SIN * 65
+ R\->B ROT ROT COS *
31 SWAP - R\->B 2
\->LIST
    \>>
  at
    \<< DATE .01 TIME
HMS+ 2 TRNC
      IF DUP 24 \>=
      THEN DROP 1
DATE+ 0
      END 2 \->LIST
    \>>
  rest
    \<< at FINDALARM
DELALARM DROP2 STOF
TEXT PICT STO
    \>>
  face
GROB 63 63 000000CFF100000000000C3C1E1000000000830800E00000000060214203000000081400001C0000000C8003708810000002100240042000008100027000C0000044330210C011000020220770800200001122000080440008002200008008000840770000C10900040000000000001002100000000004200300000000000060050000000000005080320000000083808025000000000280422500000000832140250000000080014072000000008301210000000000004220000000000000022000000000000002A0000000000000821000000000000004100000000000000490000000000000841C10000000000C143410000C100000167C10000C10000C173010000C100000161C10000000000C14900000000000008410000000000000041000000000000004A000000000000082200000EAF3000002200000F2C7000002210000718700004240E000777700820140A000755700820142E000757700832180A000F09700028080E000F9C7000280050000EBE30000500300000000000060021000000000042004000000000000100840C10000C1090008000100004008000011800000C1440000204008100102000044400400C111000081000C1000C0000002100410042000000C800C1088100000081400001C000000006021420300000000830800E0000000000C3C1E100000000000CFF1000000
END
