FUNCTION weekday$(d$)   ! New
  DEFWRD "a-z"
  '
  LOCAL day$,year,mon,day,mo,jh,je,t
  '
  year=VAL(MID$(d$,7))
  mon=VAL(MID$(d$,4,2))
  day=VAL(MID$(d$,1,2))
  '
  mo=mon-2
  jh=year DIV 100
  je=year MOD 100
  IF mo<=0
    ADD mo,12
    DEC je
  ENDIF
  IF je<0
    je=99
    DEC jh
  ENDIF
  t=tag+INT(MUL(2.6,mo)-0.2)+je\4+je+(jh\4-MUL(2,jh))
  WHILE t<0
    ADD t,7
  WEND
  t=t MOD 7
  RESTORE weekday
  tag$="Sunday"
  FOR i%=1 TO t
    READ day$
  NEXT i%
  RETURN day$
weekday:
  DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
ENDFUNC

