FUNCTION HENKAN(S$)
   DIM MJ$(2)
   DIM SU(2)
   FOR N=1 TO 2
      LET MJ$(N)=S$(N:N)
   NEXT N
   FOR N=1 TO 2
      IF MJ$(N)="A" OR MJ$(N)="a" THEN
         LET MJ$(N)="10"
      ELSEIF MJ$(N)="B" OR MJ$(N)="b"  THEN 
         LET MJ$(N)="11"
      ELSEIF MJ$(N)="C" OR MJ$(N)="c" THEN
         LET MJ$(N)="12"
      ELSEIF MJ$(N)="D" OR MJ$(N)="d" THEN
         LET MJ$(N)="13"
      ELSEIF MJ$(N)="E" OR MJ$(N)="e" THEN
         LET MJ$(N)="14"
      ELSEIF MJ$(N)="F" OR MJ$(N)="f" THEN
         LET MJ$(N)="15"
      END IF
   NEXT N
   FOR N=1 TO 2
      LET SU(N)=VAL(MJ$(N))
   NEXT N
   LET k=0
   FOR N=1 TO 2
      LET k=k+SU(N)*16^(2-N)
   NEXT N
   LET HENKAN=k
END FUNCTION


INPUT PROMPT "�q�f�a�H  ":W$
LET MR$=W$(1:2)
LET MG$=W$(3:4)
LET MB$=W$(5:6)
PRINT MR$
PRINT MG$
PRINT MB$
LET RR=HENKAN(MR$)
LET GG=HENKAN(MG$)
LET BB=HENKAN(MB$)

DIM x(4),y(4)
FOR i=1 TO 4
   LET  x(i)=COS(2*PI*i/4)
   LET  y(i)=SIN(2*PI*i/4)
NEXT i
SET WINDOW -1,1,-1,1
SET COLOR mode "NATIVE"
SET AREA COLOR colorindex(RR/255,GG/255,BB/255)
MAT PLOT AREA: x,y
PLOT TEXT ,AT 0.6,0.5, USING "### ### ###":"R ","G ","B "
PLOT TEXT ,AT 0.6,0.45, USING "### ### ###": MR$,MG$,MB$
END