OPTION BASE 0
LET kei=0
LET nag=0
INPUT PROMPT "カラー円グラフ： 項目数は？（その他は含まない） ":n
DIM X$(n),Y(n),W(n),Z(n),COL$(10)
LET COL$(1)="青色"
LET COL$(2)="黄緑"
LET COL$(3)="赤色"
LET COL$(4)="水色"
LET COL$(5)="黄色"
LET COL$(6)="赤紫"
LET COL$(7)="灰色"
LET COL$(8)="紺色"
LET COL$(9)="深緑"
LET COL$(10)="青緑"
FOR I=1 TO n  
   INPUT PROMPT "項目の 名称 を入力してください。 ":NAMAE$
   INPUT PROMPT "その項目の 数値 を入力してください。 ":NUMBER
   LET X$(I)=NAMAE$
   LET Y(I)=NUMBER
NEXT I
INPUT PROMPT "その他 の項目の数値を入力してください。( なければ 0 ） ":NUM
INPUT PROMPT "数値の 単位 を入力してください。 ":UNIT$
FOR I=1 TO n
   LET kei=kei+Y(I)
NEXT I
LET S=kei+NUM
FOR I=1 TO n
   LET W(I)=INT(1000*(Y(I)/S)+0.5)/10
NEXT I
LET H=INT(1000*(NUM/S)+0.5)/10
FOR i=1 TO n
   FOR j=i+1 TO n
      IF Y(j)<Y(i) THEN
         LET kari=Y(i)
         LET ka$=X$(i)
         LET ri=W(i)
         LET Y(i)=Y(j)
         LET X$(i)=X$(j)
         LET W(i)=W(j)
         LET Y(j)=kari
         LET X$(j)=ka$
         LET W(j)=ri
      END IF
   NEXT j
NEXT i
PRINT
FOR I=n TO 1 STEP -1
   PRINT COL$(n-I+1);" :　";
   PRINT X$(I);"  ";
   PRINT Y(I);UNIT$;"   ";
   PRINT USING "##.#":W(I);
   PRINT " %"
NEXT I
IF NUM=0 THEN GOTO 10
PRINT  COL$(n+1);" :  その他　";NUM;UNIT$;"  ";
PRINT USING "##.#":H;
PRINT " %"
10 PRINT
   FOR I=n TO 1 STEP -1
      LET nag=nag+W(I)
      LET Z(n-I+1)=nag
   NEXT I
   SET WINDOW -5,5,-5,5
   LET T=0
   FOR I=1 TO n
      FOR M=1 TO 400
         FOR R=T TO T+2*PI*W(n-I+1)/100 STEP 0.002
            SET LINE COLOR I+1
            PLOT LINES: M*SIN(R)/100,M*COS(R)/100;
         NEXT R
      NEXT M
      PLOT LINES
      LET T=T+2*PI*W(n-I+1)/100
   NEXT I
   PLOT LINES 
   FOR M=1 TO 400
      FOR R=T TO 2*PI STEP 0.002
         SET LINE COLOR n+2
         PLOT LINES: M*SIN(R)/100,M*COS(R)/100;
      NEXT R
   NEXT M
END