home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / statistik (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.