otta777さんのでも出来るけど、データを文字列にして対応するBGキャラを配置するようにすると、ステージを作りやすいし見た目も良い。
RESTORE @D
READ SX,SY
FOR Y=0 TO SY
READ CHR$
FOR X=0 TO SX
C$=MID(CHR$,X,1)
IF C$=="△" THEN BGPUT 0,X*16,Y*16,(トゲ)
IF C$=="□" THEN BGPUT 0,X*16,Y*16,(地面)
NEXT
NEXT
@D
DATA 横幅,縦幅
DATA "△△ "
DATA "□□□□□□□□□□"