Font routine return garbage

[Z!re]

Code:

SUB fPrint (txt$, x, y, c)
xx = x
yy = y
lt = LEN(Txt$)
DEF SEG = &HFFA6
FOR char = 1 TO lt
Addr = 8 * ASC(MID$(Txt$, char, 1)) + 14
LINE (xx, yy)-(xx + 7, yy), c, , CVI(CHR$(0) + CHR$(PEEK(Addr)))
LINE (xx, yy+1)-(xx + 7, yy+1), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 1)))
LINE (xx, yy+2)-(xx + 7, yy+2), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 2)))
LINE (xx, yy+3)-(xx + 7, yy+3), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 3)))
LINE (xx, yy+4)-(xx + 7, yy+4), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 4)))
LINE (xx, yy+5)-(xx + 7, yy+5), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 5)))
LINE (xx, yy+6)-(xx + 7, yy+6), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 6)))
LINE (xx, yy+7)-(xx + 7, yy+7), c, , CVI(CHR$(0) + CHR$(PEEK(Addr + 7)))
xx% = xx% + 8
NEXT
DEF SEG
END SUB

It seems some machines don't have the font stored in BIOS, or it is stored in a different segment, is there a way around this?

[Plasma]

http://forum.qbasicnews.com/viewtopic.php?t=6496#73813

[Z!re]

Heh, thanks.

Sorry, I'm a bit slow sometimes, feel free to bash me :wink: .

[Oz]

*bash*
*bash*
*bash*
*bash*
*bash*
*bash*
*bash*
*bash*

Hehehe.....just getting u back
(or maybe that was WT0990.....meh)

Oz~

[whitetiger0990]

WT0990... that's a new one... ahhh i dont wanna be bashed!