FUNCTION weekday$(d$)   ! Old
  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
    mo=mo+12
    je=je-1
  ENDIF
  IF je<0
    je=99
    jh=jh-1
  ENDIF
  t=day+INT(2.6*mo-0.2)+INT(je/4+je)+(INT(jh/4)-2*jh)
  WHILE t<0
    t=t+7
  WEND
  t=t MOD 7
  RESTORE weekday
  tag$="Sunday"
  FOR i%=1 TO t
    READ day$
  NEXT i%
  RETURN tag$
  REM All the weekdays:
weekdays:
  DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
ENDFUNC


