DIM MAPTIP[3]
MAPTIP[0]=607:MAPTIP[1]=578:MAPTIP[2]=582
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
DATA 1,1,1,1,1,1,1,1,1
DATA 2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2
FOR I=0 TO 7
FOR J=0 TO 7
READ ID
BGPUT 0,J,I,MAPTIP[ID]
NEXT
NEXT