I started trying to work up a solution for you but I got bored.

I only got this far:
set display mode 1024,768,32
sync on
ink -2,0
set text font "calibri",1
set text size 20
`matrix guide
for y = 0 to 9
for x = 0 to 23
dot gX(x),gY(y)
next x
next y
rem panels
for by = 0 to 9
for bx = 0 to 20 step 5
drawPanel(bx,by,"Sliced Bread")
next bx
next by
sync
wait key
end
function gX(x)
x = x*40+40
endfunction x
`//
function gY(y)
y = y*40+200
endfunction y
`//
function drawPanel(x,y,a$)
x1 = gX(x) : x2 = gX(x+3) : y = gY(y)
ink -2,0
box x1,y-10,x2,y+10
ink 0,0
text x1+5,y-text size()/2,a$
endfunction
"I am a big dumb babby!

" - TheComet