INKEY$()で取得した文字を、変数「I」で取得した文字の位置に代入。 と同時に変数「I」を+1して、次の文字を打てるようにする。 そしてFOR IA~　のところで、 NAME$=MJ$[0],[1],[2],[3]…という風な処理をし、ひとつにまとめる。 いったんNAME$を消しているが、消さないと NAME$+MJ$[0](がAとする)→NAME$がAになるが、再びこの処理が行われ、再びAが足され、永遠に文字が増えるから。 まだ解読不可能なところがあれば答えます