RESTORE @MAPDATA:Y=0
REPEAT
READ D$: IF D$=="@END" THEN BREAK
FOR X=0 TO LEN(D$)-1
C=INSTR("□HG■",MID$(D$,X,1)
IF C!=-1 THEN BGPUT 0,X,Y,BGC[C]
NEXT:Y=Y+1
UNTIL FALSE
@MAPDATA
DATA "■■■■■■■■■■■"
DATA "■□□□□■□□□G■"
DATA "■□■■□□□■■□■"
DATA "■H□□□■□□□□■"
DATA "■■■■■■■■■■■"
DATA "@END"