1 <KENSAKU>
2 G;修理依頼票/1;
3 FOR X1=H TO T;
4 LET X2=INSTR(1,L%X1,"?");LET X3=INSTR(1,L%X1,"？");
X Y Z X Y Z
5 IF X2=0 AND X3=0 THEN CONTINUE;
6 LET [X1,@* ]="*";
7 NEXT;P;*;
8 CS;;@* ="*";;;問題データ;
9 STOP;
4行目:
INSTR関数を使います。文字列 Y (L%X1=X1行全データ) の X 桁目 (１桁目) 以降に文字列 Z (?及び？) を検索し、あったら、その位置 (何桁目)6nbsp;がX2 (X3) に入ります。 無かったら、2X (Ｘ3) に0 (ゼロ) が入ります。
