I don't have Blitz installed anymore, so just some theory again.
This is the way you are now assigning your texture coordinates:
vc(a)=AddVertex(surface, x#,y#, z#, 0.0 , v#) : a=a+1
vc(a)=AddVertex(surface, -z#,y#, x#, 0.25, v#) : a=a+1
vc(a)=AddVertex(surface, -x#,y#,-z#, 0.5 , v#) : a=a+1
vc(a)=AddVertex(surface, z#,y#,-x#, 0.75, v#) : a=a+1
vc(a)=AddVertex(surface, x#,y#,z#, 1.0, v#) : a=a+1
So your are wrapping the width of the texture (u= 0..1) once around the whole object.
But you probably want to map the texture once on each side?
Just multiply your texture-coordinate by 4 then.
Basically the same applies to the v-coordinate. Because the cuboid is much higher than the screen, there are only a few segments visible, so you might want to scale it accordingly to avoid texture-stretching.