copypixel works it'll have to do. Got it with Createimage too....
gfx1 = CreateImage(13,13)
SetBuffer ImageBuffer(gfx1)
For x=1 To 13
For y=1To 13
Read Clr
If clr = 0 Then Color 0,200,0
If clr = 0 Then Plot x,y
If clr = 2 Then Color 0,150,0
If clr = 2 Then Plot x,y
Next
Next
SetBuffer BackBuffer()
TileImage gfx1,0,0