RESTORE @MAPDATA:Y=0
REPEAT
READ D$: IF D$=="@END" THEN BREAK
FOR X=0 TO LEN(D$)-1
C=INSTR("□ＨＧ■",MID$(D$,X,1)
IF C!=-1 THEN BGPUT 0,X,Y,BGC[C]
NEXT:Y=Y+1
UNTIL FALSE
@MAPDATA
DATA "■■■■■■■■■■■"
DATA "■□□□□■□□□Ｇ■"
DATA "■□■■□□□■■□■"
DATA "■Ｈ□□□■□□□□■"
DATA "■■■■■■■■■■■"
DATA "@END"
3そうだね プレイ済み