Is there a square monospace font

[bplus]

Let me expand on Steve's amazing reply:

Code: (Select All)

Screen _NewImage(600, 600, 32)
For i = 1 To 3
    Text8 120, i * 120, 120, &HFFFF8844, "FOX"
Next
Print "OK?"
Sleep

Sub Text8 (x, y, textHeight, K As _Unsigned Long, txt$)
    Dim fg As _Unsigned Long, cur&, I&, multi, xlen
    fg = _DefaultColor
    f = _Font
    'screen snapshot
    cur& = _Dest
    I& = _NewImage(8 * Len(txt$), 8, 32)
    _Dest I&
    _Font 8
    Color K, _RGBA32(0, 0, 0, 0)
    _PrintString (0, 0), txt$
    multi = textHeight / 8
    xlen = Len(txt$) * 8 * multi
    _PutImage (x, y)-Step(xlen, textHeight), I&, cur&
    Color fg
    _FreeImage I&
    _Dest cur&
    _Font f
End Sub

---

_Font 8. Better known as SCREEN 0's fat ASCII characters.

Hey is it just me, or did something go haywire and caused the forum icon buttons, for post formatting, to go blank?

Pete

Maybe my reply collided with your reply