home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 35 / Tiger_Disk_035_1997-02_Tiger-Crew-Disk_de_Side_A.d64 / wochentag (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  641b  |  24 lines
  1. 10 poke53280,6:poke53281,6
  2. 20 print"[147]         wochentagsbestimmung         "
  3. 30 print" datum in der form tt.mm.jjjj eingeben"
  4. 40 input" datum ";d$
  5. 50 t=val(mid$(d$,1,2)):m=val(mid$(d$,4,2)):j=val(mid$(d$,7,4))
  6. 60 ift>31 or m>12 then print"  eingabefehler! ":goto 40
  7. 70 ifj<1901 then print"  eingabefehler! ":goto 40
  8. 80 gosub 190
  9. 90 d=d-7*int(d/7)
  10. 100 for i=0 to 6
  11. 110 read w$(i)
  12. 120 next i
  13. 130 print" der ";mid$(str$(t),2,2)"."mid$(str$(m),2,2);
  14. 140 print"."mid$(str$(j),2,4);
  15. 150 print" ist ein ";w$(d);".":restore
  16. 160 input" weiter (j/n) ";a$
  17. 170 ifa$="j" then 20
  18. 180 end
  19. 190 d=int((j-1901)*1461/4)+1+t+int((158*m-157)/5)
  20. 200 d=d+(m>2)*(m-(int(j/4)<j/4))
  21. 210 return
  22. 220 data sonntag,montag,dienstag,mittwoch
  23. 230 data donnerstag,freitag,samstag
  24.