%%HP: T(3)A(R)F(.);
DIR
  CST { NXT WRKD }
  TEST
    DIR
    END
  DATIM
    \<< 4 FIX DATE
100 * IP TIME 100 *
IP 10000 / +
    \>>
  WRKD
    \<< DROP OBJ\-> DUP
" " + DATIM \->STR
SWAP +
"ENTER REPORT" { \Ga
} INPUT + SWAP STO
NXT
    \>>
  NXT
    \<< CLEAR "\->"
"ENTER CALL" { \Ga }
INPUT + DUP OBJ\->
EVAL TYPE
      IF 6 \=/
      THEN
"UR A DUP OM!"
      ELSE
"WORK EM!"
      END
    \>>
END
