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