Need this as a macro

dim as ulong col=0, row=0

Dim shared as Resource SP2
SP2 = resource_load(level, "img" + "-" + "SP")
dim shared as fb.image ptr SP
SP = imagecreate(SP2.colspan,SP2.rowspan,0)
for row = 0 to SP2.rowspan -1 step 1
for col = 0 to SP2.colspan -1 step 1
    pset SP,(col,row),SP2.iDat(col,row)
next col
next row