10 GRAPHICS 8 11 DPOKE 82,9984 12 ? "PieChart" 13 TRAP 30 14 C=0 15 DEG 16 COLOR 1 17 CIRCLE 159,80,80 18 DIM N(8) 20 INPUT "Number ([Ret] when done)";A 21 N(C)=A 22 C=C+1 23 S=S+A 24 GOTO 20 30 TRAP 30 31 IF C<2 32 ? "Min 2" 33 GOTO 20 34 ELSE 35 IF C=9 36 ? "Max 9" 37 ENDIF 38 ENDIF 40 GOSUB 1000 41 POKE 87,9 42 G=0 43 FOR A=0 TO C-1 44 COLOR A+1 45 NN=(N(A)/S)*360 46 PAINT 17*COS(G+NN/2)+39,70*SIN(G+NN/2)+80 47 G=G+NN 48 NEXT A 50 POKE 87,8 51 COLOR 0 52 CIRCLE 159,80,80 53 GOSUB 1000 54 POKE 623,128 55 POKE 87,9 56 COLOR 8 57 CIRCLE 39,80,20,80 60 GRAPHICS 42 61 DPOKE 704,12+18*256 62 DPOKE 706,36+70*256 63 DPOKE 708,100+132*256 64 DPOKE 710,164+228*256 65 POKE 712,0 999 GOTO 999 1000 G=0 1001 FOR A=0 TO C-1 1002 PLOT 159,80 1003 DRAWTO 80*COS(G)+159,80*SIN(G)+80 1004 G=G+(N(A)/S)*360 1005 NEXT A 1006 RETURN