home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 October / 64er_Magazin_91-10_1991_Markt__Technik_de_Side_B.d64 / tagesberechnung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  938b  |  20 lines
  1. 1 print"[147][155]"spc(10)"[196]ie  [212]agesberechnung":printspc(12)"[152]von [193]lbert [213]lmer[155]"chr$(14)
  2. 2 poke53280,0:poke53281,0:printspc(10)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print
  3. 3 dimb$(12):fori=0to6:reada$(i):nexti:fori=1to12:readb$(i):nexti
  4. 4 input"welches [196]atum: [212][212].[205][205].19[202][202][157][157][157][157][157][157][157][157][157][157][157][157]";da$:iflen(da$)<>10thenprint"[145][145]":goto4
  5. 5 t=val(left$(da$,2)):m=val(mid$(da$,4,2)):j=val(right$(da$,4)):a=t:b=m:c=j
  6. 6 ift>((m-7*int((m-1)/7))and1)+30+(m=2)*(2+(j/4=int(j/4)))ort<1thenprint"[145][145]":goto4
  7. 7 ifm<1orm>12orj<1582orj>9999thenprint"[145][145]":goto4
  8. 8 ifm>2thenm=m-2:goto10
  9. 9 m=m+10:j=j-1
  10. 10 h=int(j/100):j=j-100*h:w=int(j/4)+int(h/4)+int((13*m-1)/5)+t+j-2*h
  11. 11 ifw>0thenw=w-int(w/7)*7:goto13
  12. 12 ifw<0thenw=w+7:goto12
  13. 13 print:print:print"[196]er"a"[157]. "b$(b)"des [202]ahres"c:print"ist ein "a$(w)"[146]!"
  14. 14 print:print"[206]och mal ?[146]":getk$:ifk$<>"j"andk$<>"n"thenprint"[145][145][145]":goto14
  15. 15 ifk$="n"thenprint"[147][195]iao.":end
  16. 16 fori=5to11:poke781,i:sys59903:nexti:poke214,4:poke211,0:sys58640:goto4
  17. 17 data"[211]onntag","[205]ontag","[196]ienstag","[205]ittwoch","[196]onnerstag","[198]reitag","[211]amstag"
  18. 18 data"[202]anuar","[198]ebruar","[205]aerz","[193]pril","[205]ai","[202]uni","[202]uli","[193]ugust"
  19. 19 data"[211]eptember","[207]ktober","[206]ovember","[196]ezember"
  20.