'assuming you don't need to keep your map data in arrays DIM MAPLT[0] FOR I=0 TO 3 LOAD FORMAT$("DAT:SC_ZMAP_L%D",I),MAPLT,FALSE BGSCREEN I,64,64 BGLOAD I,MAPLT NEXT