%%HP: T(3)A(D)F(.);
\<<
  IF DUP TYPE 5 \=/
  THEN 1 \->LIST
  END DATE TIME
TSTR PR1 DROP CR
  \<< DUP \->STR PWIDE
SWAP + PNORM + PR1
DROP DUP RCL PR1
DROP BYTES \->STR
" Bytes" + SWAP
RCLF ROT ROT 64
STWS HEX \->STR ROT
STOF " Ck:" SWAP +
+ PR1 CR CR DROP 1
  \>> LISP DROP CR CR
CR CR
\>>
