home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 53 / 64er_Magazin_Sonderheft_53_19xx_Markt__Technik_de_Side_A.d64 / statistik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  83 lines
  1. 9 rem ********************************
  2. 10 rem**   statistikkuchen          **
  3. 11 rem**   demo zu  gr2001          **
  4. 13 rem********************************
  5. 20 goto200
  6. 21 rem********************************
  7. 25 x1=xm+a1*cos(sw-g2):y1=ym+b1*sin(sw-g2):return
  8. 29 rem---------------------------------
  9. 30 (NULL)x1,y1:return
  10. 39 rem---------------------------------
  11. 40 (NULL)zm,x3,y3,x4,y4:return
  12. 49 rem---------------------------------
  13. 50 (NULL) zm,r,be,h,v,ab,x1,y1,a$:return
  14. 59 rem---------------------------------
  15. 60 (NULL)zm,x0,y0,x1,y1:(NULL)zm,x0+1,y0+1,x1+1,y1+1:return
  16. 69 rem---------------------------------
  17. 80 (NULL)zm ,x1,y1,a1,b1,dw,sw,ew,sr
  18. 81 (NULL)zm ,x1,y1,a1-.5,b1-.5,dw,sw,ew,sr:return
  19. 89 rem*********************************
  20. 90 (NULL)zm,x1,y1,wi,a1,b1:return:rem*
  21. 91 rem*********************************
  22. 95 (NULL)1,x1,y1,x2 ,y2,0,b1:(NULL)1,x1,y1,x2 ,y2 ,1,b2
  23. 98 return
  24. 100 poke198,0:wait198,1:getw$:return
  25. 199 rem********************************
  26. 200 gr=(NULL)/180:g3=3*(NULL)/2:g2=(NULL)/2:g4=2*(NULL)
  27. 250 a=100:b=50:xm=160:ym=100:br=40
  28. 300 (NULL)1:(NULL):(NULL)4,0:(NULL)0,0,0,319,199:(NULL)0,1,1,318,198:(NULL)0,20
  29. 301 (NULL)0,21
  30. 305 rem********************************
  31. 310 dw=0:sr=6 *gr
  32. 320 sw=0 :ew=g4
  33. 410 zm=0 :x1=xm:y1=ym:a1=a:b1=b: gosub80
  34. 420 x0=xm+a:y0=ym+5:x1=x0:y1=ym+br:gosub60
  35. 425 x0=xm-a:y0=ym+5:x1=x0:y1=ym+br:gosub60
  36. 450 sw=g2:ew=g3:x1=xm:y1=ym+br:zm=0:gosub80
  37. 499 rem********************************
  38. 500 read dm:dim t(dm) :rem ges anzahl
  39. 520 fori=1todm
  40. 540 read t(i)
  41. 550 su=su+t(i)
  42. 560 next
  43. 580 sw=0:zm=0:x1=xm:y1=ym:wi=sw:a1=b:b1=0:gosub90:     rem startwi
  44. 585 :
  45. 600 fori=1todm
  46. 620 pr=t(i)/su:rem prozent
  47. 640 wt=g4*pr  :rem teilstueckwinkel
  48. 660 sw=sw+wt:wh=sw:     :rem effekt.sw
  49. 680 a1=a:b1=b:gosub25:x0=xm:y0=ym:zm=0:       gosub60
  50. 690 ifsw>g2andsw<g3thenx0=x1:y0=y1+br:gosub60
  51. 699 rem********************************
  52. 700 wt=wt/2:sw=sw-wt:a1=a+30:b1=b+30:gosub25
  53. 705 a$="   "
  54. 710 pr%=pr*100:a1$=str$(pr%):h=2:r1=24:r2=16
  55. 715 ifpr%<2thenr1=9:r2=10:h=1:a$=" ":a1=a+50
  56. 720 x1=x1-4:y1=y1-4:zm=1:r=1:be=1:v=0:ab=8:a$="   ":gosub50
  57. 740 x3=x1:y3=y1:x4=x1+r1:y4=y1+r2:zm=0:  gosub40
  58. 750 :
  59. 760 x1=x1+2:y1=y1+2:zm=2:r=1:be=1:v=0:ab=8
  60. 770 a$=right$(a1$,len(a1$)-1):gosub50
  61. 780 sw=wh
  62. 790 next
  63. 799 rem******
  64. 800 b1=1:b2=2
  65. 900 readx0,y0:b1=b1+1.5+4*(b1>3):b2=b2+1+4*(b2>3):b1=b1+1:b2=b2+1
  66. 905 :x1=x0-80:y1=y0-55:x2=x0+55:y2=y0+55
  67. 910 ifx0<0then2000
  68. 920 gosub4000:(NULL)x0,y0:(NULL)3:gosub95:  :(NULL)1
  69. 990 goto900
  70. 999 rem********************************
  71. 2000 (NULL):(NULL)1:(NULL)255:poke198,0:wait198,1:(NULL)0:(NULL)255
  72. 2100 print"[147][144]clr:l[207]";chr$(34);"gra1";chr$(34);",8":print"r[213]"
  73. 2110 poke631,19:fori=0to2:poke632+i,13:next:poke198,4:end
  74. 3999 rem********************************
  75. 4000 (NULL):(NULL):(NULL)1:return
  76. 7999 rem********************************
  77. 20000 data10
  78. 20010 data12,20,40,60,124,23
  79. 20020 data25,120,21,22
  80. 20049 rem
  81. 20050 data 162,57, 183,57, 202,69,      215,96, 215,120, 127,143, 108,126
  82. 20060 data 108,103 , 130,71 , 150,71,-1,-1
  83.