'なぜかA$の中にある"ポケモン"を一部伏字にしたくなった A$="やっぱりポケモンやりたいよなあ、ポケモン" K$="ポケモン" N=0 REPEAT N=INSTR(N,A$,K$) IF N>=0 THEN A$[N+1]="*" 'ちょっとだけ裏技 N=N+LEN(K$) ENDIF UNTIL N<0 PRINT A$