100 PRINTCHR$(147);:FORI=0TO6:READW$(I):NEXT
110 INPUT"TT.MM.JJJJ";A$
130 T=VAL(MID$(A$,1,2)):M=VAL(MID$(A$,4,2)):J=VAL(MID$(A$,7,4))
160 X=T+M*31-31-INT(M*.43)+(M>2)*2+(J-1)*365+INT((J+(M<3))/4)
170 X=X+(((J+4)/400=INT((J+4)/400))AND(M>2))-INT((J+104)/100)+INT((J+104)/400)
180 Y=X-INT(X/7)*7
190 PRINT:PRINTW$(Y):PRINT:PRINT
200 GOTO110
300 DATASONNTAG,MONTAG,DIENSTAG,MITTWOCH,DONNERSTAG,FREITAG,SAMSTAG