( datestr ) ( -- s ) ( returns date in format DD/MM             )
( requires timedate macro ) ( adapted from...                   )
( timetostr from TimeTraveller, #13775 5/12/92, by WhitteRabbit )

: addzero  ( n -- s n )  ( s is "0" if n < 10, otherwise s is "" )
  dup 10 < if "0" else "" then swap
;

: datestr
  .timedate
  pop
  addzero intostr "/" strcat strcat   ( month )
  swap addzero intostr strcat strcat   ( day )
  swap pop
  swap pop
  swap pop
;