home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / kalender 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.3 KB  |  65 lines
  1. 100 poke 53280,0:poke 53281,0
  2. 110 input"[147][158]eingabe jahreszahl";j
  3. 120 a=int(j/100)
  4. 130 j2=int(val(right$(str$(j),4))/100)
  5. 140 c=j2 and 3
  6. 150 j1=j-a*100
  7. 160 if c=1 then wt=5
  8. 170 if c=2 then wt=3
  9. 180 if c=3 then wt=1
  10. 190 if c=0 then wt=6
  11. 200 if a=j/100 then 290
  12. 210 if wt<6 then wt=wt-1
  13. 220 c=int(j1/28)*28
  14. 230 if c=j1 then 290
  15. 240 for e=c+1 to j1:wt=wt+1
  16. 250 if wt=7 then wt=0
  17. 260 if ((e-1)and 3)=0 then wt=wt+1
  18. 270 if wt=7 then wt=0
  19. 280 next e
  20. 290 y1=wt
  21. 300 for dj=1 to 3
  22. 310 print"[147]kalender"dj"[157].drittel"j:print
  23. 320 for a=1 to 2
  24. 330 for b=7 to 25 step 18
  25. 340 read m$
  26. 350 print tab(b)m$;
  27. 360 next b
  28. 370 print
  29. 380 for tg=1 to 7
  30. 390 read tg$
  31. 400 if tg$="so" then print"[154]";
  32. 410 print tg$"[158]"
  33. 420 next tg
  34. 430 print:print
  35. 440 next a
  36. 450 print" 64'er / h.thisius   (taste druecken)"
  37. 460 for y=3 to 13 step 10
  38. 470 for x=2 to 20 step 18
  39. 480 read tg
  40. 490 if(j1 and 3)=0 and tg=28 then tg=29
  41. 500 if j2*100=j and (j2 and 3)<>0 and tg=29 then tg=28
  42. 510 for t=1 to tg
  43. 520 poke 211,x+x1:poke 214,y+y1
  44. 530 if t<10 then poke 211,peek(211)+1
  45. 540 if y1=0 then poke 646,14
  46. 550 sys 58732
  47. 560 print t:poke 646,7
  48. 570 y1=y1+1
  49. 580 if y1>6 then y1=0:x1=x1+3
  50. 590 next t
  51. 600 x1=0
  52. 610 next x,y
  53. 620 poke 198,0
  54. 630 wait 198,1
  55. 640 next dj
  56. 650 poke 198,0
  57. 660 restore
  58. 670 goto 100
  59. 680 data januar,februar,so,mo,di,mi,do,fr,sa
  60. 690 data maerz,april,so,mo,di,mi,do,fr,sa,31,28,31,30
  61. 700 data mai,juni,so,mo,di,mi,do,fr,sa
  62. 710 data juli,august,so,mo,di,mi,do,fr,sa,31,30,31,31
  63. 720 data september,oktober,so,mo,di,mi,do,fr,sa
  64. 730 data november,dezember,so,mo,di,mi,do,fr,sa,30,31,30,31
  65.