( 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 ;