Create a new character?

[SMcNeill]

Perhaps something simple like this?

Code: (Select All)

SCREEN _NEWIMAGE(640, 480, 32)
_SCREENMOVE _MIDDLE
$COLOR:32

PRINT "Foo"; Line4Phil(Red); "foo?"; Line4Phil(Green)
FOR i = 0 TO 9
    PRINT STR$(i); " "; Line4Phil(Red); STR$(i + 100); Line4Phil(Green)
NEXT

FUNCTION Line4Phil$ (kolor AS _UNSIGNED LONG)
    PRINT " ";
    y = CSRLIN - 1
    x = POS(0) - 1
    fw = _FONTWIDTH
    fh = _FONTHEIGHT
    LINE (x * fw - 2, y * fh)-STEP(1, fh), kolor, BF
END FUNCTION