ループとREAD〜DATAの組み合わせに慣れたら、初級者卒業ですね。 WHILE 1 READ M$,S$ IF M$=="" THEN BREAK DIC$[ASC(M$)]=S$ WEND DATA "ご","た" DATA "め","す" DATA "ん","け" DATA "ね","て" DATA "","" 最後の"",""はここまで来たら終了のマークです。