home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8704.d64
/
wochentag
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
340b
|
10 lines
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