READ命令で文字列変数にDATA命令の文字列を読み取って SHIFT関数で左から1文字ずつ取り出して"1"だったときに スプライトを左から右に移動すれば良いと思います。 READ D$ WHILE LEN(D$)>0 D1$=SHIFT(D$) IF D1$=="1" THEN スプライト移動処理 ENDIF WEND