home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 April / 64er_Magazin_87-04_1987_Markt__Technik_de.d64 / wochentag (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  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.