行数制限で見にくいですが、こんなのは?
@BGSYM:DATA "ABCDEF"
@BGNO:DATA 183,184,185,215,216,217
@MAP:DATA "ABC CBA","DEF FDA"
RESTORE @BGICN:READ BGSYM$
DIM BGNO[LEN(BGSYM$)]:COPY BGNO,@BGNO
RESTORE @MAP
FOR Y=0 TO 1
READ A$
FOR X=0 TO LEN(A$)-1
N=INSTR(BGSYM$,A$[X])
IF N>=0 THEN BGPUT 0,X,Y,BGNO[N] ELSE BGPUT 0,X,Y,0
NEXT
NEXT
10行から17行目
SPSET 105,2:SPOFS 105,5,140,1000
SPSET 200,32:SPOFS 200,-100,140
SPCOL 200
SPSET 0,3
FOR I=1 TO MAL
X[I]=-70:Y[I]=140
SPSET I,0:SPCOL I:SPOFS I,X[I],Y[I]
NEXT
37行目
IF X[I]==-70&&(B2 AND #A||STTM2==1) THEN X[I]=EX
注意)この方法の場合、スプライトが消えることはありませんが、ボタンを押してもスプライトが置けないことがあります。