FUNCTION wochentag$(d$)   ! Alt
  LOCAL tag$,jahr,mon,tag,mo,jh,je,t
  '
  jahr=VAL(MID$(d$,7))
  mon=VAL(MID$(d$,4,2))
  tag=VAL(MID$(d$,1,2))
  '
  mo=mon-2
  jh=jahr DIV 100
  je=jahr MOD 100
  IF mo<=0
    mo=mo+12
    je=je-1
  ENDIF
  IF je<0
    je=99
    jh=jh-1
  ENDIF
  t=tag+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 wochentage
  tag$="Sonntag"
  FOR i%=1 TO t
    READ tag$
  NEXT i%
  RETURN tag$
  REM Hier kommen alle (!) Wochentage:
wochentage:
  DATA Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag,Sonntag
ENDFUNC