DATAの0を3から15の好きな数を入れて、COLORの引数にしてみましょう。 あと、READ〜DATAはFOR 〜NEXTとかで回しながら取り込むのが基本です。