Sub DrawText(txt$, x, y)
Draws text to the current canvas