home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 85 / Tiger_Disk_085_20xx_Tiger-Crew-Disk_de_Side_B.d64 / wochentag (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  400b  |  14 lines
  1. 10 print"[147]         wochentags-bestimmung":fori=1to7:readw$(i):next
  2. 20 print" eingabe: tt.mm.jjjj"
  3. 30 a$="":input" datum: ";a$:ifa$=""thenend
  4. 40 d=val(mid$(a$,1,2))
  5. 50 m=val(mid$(a$,4,2))
  6. 60 j=val(mid$(a$,7,4))
  7. 70 ifm>2then90
  8. 80 m=m+12:j=j-1
  9. 90 n=d+2*m+int(0.5*(m+1))+j+int(j/4)-int(j/100)+int(j/400)+2
  10. 100 n=int((n/7-int(n/7))*7+0.5):n=n+1
  11. 110 print" tag:     ";w$(n)
  12. 120 goto30
  13. 130 datasamstag,sonntag,montag,dienstag,mittwoch,donnerstag,freitag
  14.