\ -------------- example 6 --------------

\ calculation of day of week (dow)

decimal
: gregor             ( dd mm yyyy -- gregor )
    >r 3 - dup 0<
    dup r> + >r 12 and +
    306 *  5 +  10 / +
    r@  1461 4 */  + 1+
    r@ 100 / -  
    r> 400 / +
;

\ 0: monday 1: tuesday .... 6: sunday 
: dow  ( dd mm yyyy -- 0...6 )  
   gregor 7 mod  ;

: .weekday ( 0...6 -- )
   7 mod 2* s" MoTuWeThFrSaSu" drop + 2 type  ;

: .dow  ( dd mm yyyy -- )
   dow .weekday ;


10 3 2003  .dow   cr
11 9 2001  .dow   cr