TILE height 30
CLS
For y=0 To 479 Step 30
For x=0 To 639 Step 40
 Box x,y,40,30
 Triangle x+2,y+2,x+2,y+27,x+37,y+27,1,1
 Text x+5,y+16,Str$(yi),"LT",7,,0,1
 Text x+36,y+5,Str$(xi),"RT",7,,1,0
 Inc xi
 TILE x\8,y\30,NCOL(FC),NCOL(BC),5,1
 Inc BC
Next x
 Inc yi: xi=0
 Inc FC:BC=0
Next y
Do : Loop While Inkey$=""

Function NCOL(N)
NCOL=((N And 1)<<7)+((N And 6)<<13)+((N And 8)<<20)
End Function