85行目と95行目と98行目の表示命令の行の最後に
セミコロンを付けます。
セミコロンを付けずにコンソール画面の一番下の行で表示をすると
強制スクロールするため表示が崩れます。
SX,SYの値が大きすぎるとエラーになってしまうんで
14行目の次に
IF SX+W>50 OR SY+H>30 THEN
? "SX,SYのしょきちをかくにんしてください。”:END
ENDIF
も有った方がいいかな?
ついでに14行目の後に
IF SX>W>40 OR SY+H>20
FOR~NEXTで一文字ずつ調べていると文字数分オーバーヘッドが
あるためINSTR関数が時間が掛かるような仕様で無ければ
INSTR関数を使った方が処理時間は早いと考えます。
2文字以上の検索はMID$のみで処理をする場は二重ループで
検索する文字列を左から1文字ずつチェックして
途中で不一致だったらBREAKしてループを抜けたときに
ループで使っている変数がループ回数と同じなら一致と判断
すればいいと思います。時間は掛かりそうですけど^^;;;
@ANS_4
FOR I=0 TO LEN(S$)-1
FOR J=0 TO LEN(SE$)-1
IF MID$(S$,I,1)!=MID$(SE$,J,1) THEN BREAK
NEXT
IF J==LEN(SE$) THEN ? I;”もじめ”
I=I+LEN(SE$)
NEXT