レイヤーをいくつ使うのかで切り出すデータ量が変わります。
一つ取り出すのであれば
DIM MAPWORK[8192] 'MAPデータを読み込む配列
DIM MAP[32*64] '切り出すMAPデータを格納する配列
LOAD "DAT:MAPDATA" '自分で保存したMAPデータ
FOR I=0 TO 32*64-1 'レイヤー0の部分を切り出す。
MAP[I]=MAPWORK[264+I]
NEXT
SAVE "DAT:LAYER0.DAT" '保存
読み込むときはこうですね。
一番最初のソースのFOR文が一つ無くなってるだけですが。
DIM MAP[32*64] '切り出したMAPデータを読み込む配列
DIM WORK[64*64] 'BGLOADするためにデータ整形に使う配列
LOAD "DAT:LAYER0",FALSE
FOR I=O TO 32*64-1
WORK[I*2 ]=WORK[I] AND &HFFFF
WORK[I*2+1]=WORK[I] >> 16
NEXT
BGLOAD 0,0,0,64,64,WORK