まず、DIMやVARは基本プログラムの一番最初に書きます。12行目を1行目に持っていけば大丈夫です。 データも3つしか読み込まれていないので、16行目でエラーが出ます。 13行目の FOR I=0　TO 2 を FOR I=0　TO 5にすれば大丈夫だと思います。 IF文のところは IF R==1&&(K AND 1)==1 THEN ～ で想定した動きになると思います。