%%HP: T(3)A(D)F(.);
@ by Pete Stoppani
DIR
  CLOK
    \<< RCLF -16 SF -17 CF -18 CF -19 SF ERASE 'PPAR' PURGE PICT { # 34d # 1d }
      FACE GOR { # 0d # 0d } PVIEW GET.TMS \-> pt pm ps
      \<< pt HR.HND pm MIN.HND ps SEC.HND 1 WAIT
        DO GET.TMS \-> t m s
          \<<
            IF 's\=/ ps'
            THEN ps SEC.HND s SEC.HND s 'ps' STO
            END
            IF 'm\=/ pm'
            THEN
              IF 'm MOD 12==0'
              THEN pt HR.HND t HR.HND t 'pt' STO
              END pm MIN.HND m MIN.HND m 'pm' STO
            END
          \>>
        UNTIL KEY
        END DROP STOF 'PPAR' PURGE
      \>>
    \>>
  SEC.HND
    \<< 60 / 360 * NEG 90 + \-> d
      \<< 2.3 d \->V2 2.7 d \->V2 TLINE
      \>>
    \>>
  MIN.HND
    \<< 2.5 SWAP 60 / 360 * NEG 90 + \->V2 (0,0) TLINE
    \>>
  HR.HND
    \<< 1.55 SWAP HMS\-> 12 MOD 30 * NEG 90 + \->V2 (0,0) SWAP TLINE
    \>>
  FACE  @ [Note: see NFACE for a new, improved clock face!  -jkh-]
GROB 63 63 000000CFF100000000000C380E1000000000830800E00000000060080003000000081000000C000000041000000410000002200000042000008120000002C0000040000000000100002000000000020000100000000004000800000000000800080000000000080004000000000000100200000000000020010000000000004003000000000000608C00000000000890800000000000008040000000000000014000000000000001400000000000000120000000000000022000000000000002200000000000000220000000000000021000000000000004100000000000000410000000000000041000000E300000041000000220000004F00000022000008710000002200000041000000E30000004100000000000000410000000000000041000000000000004200000000000000220000000000000022000000000000002200000000000000240000000000000014000000000000001400000000000000180000000000000808800000000000880070000000000007001000000000000400200000000000020040000000000001008000000000008000800000000000800001000000000040000200000000002000040000000000100008120000002C0000002200000042000000410000004100000081000000C000000006008000300000000830800E0000000000C380E100000000000CFF1000000
  GET.TMS
    \<< TIME DUP FP 100 * DUP IP SWAP FP 100 * IP
    \>>
END
