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

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