READ P$ IF P$="1" THEN ブロック配置 みたいな感じにしてませんか？ もしこのようにしているのであれば、 "11111"と"1"は違う文字列なので、 2文字以上は何も起こりません。 MID命令で、1文字ずつ取り出して判定する必要があります。 違っていたらすみません。 プログラムの間違いを指摘して欲しいときは、プログラムを公開するか、スクショを投稿するといいですよ。そのほうが、的確な回答が返ってきます。