Heres an example. Should be easy to understand.
`Make a box
INK RGB(255,255,255),0
box 0,0,31,31
INk RGB(0,0,0),0
box 2,2,29,29
get image 1,0,0,31,31
cls
`Declare
width=50
height=50
dim map(width,height,3)
`Set up map
for a=0 to width
for b=0 to height
INC spritenum,1
map(a,b,0)=spritenum
map(a,b,1)=a*32
map(a,b,2)=b*32
map(a,b,3)=1
next height
next x
`draw map
for a=0 to width
for b=0 to height
sprite map(a,b,0),map(a,b,1),map(a,b,2),map(a,b,3)
next height
next x
sync
wait key
Note: The above I didn't say, your just crazy.
Not a ripoff of The Twilight Zone