DIM BGC%[4]:BGCS$="" FOR I=0 TO 3:READ Z$,BGC%[I]:BGCS$=BGCS$+z$:NEXT DARA " ",1,"0",866,"A",868,"a",864 としておいて A%=INSTR(BGCS$,M$):IF A%!=-1 THEN BGPUT 1,X,Y,BGC%[A%]