>Actually I used both concepts. I download the vertical font supplied by Mr. Berezniker's link and then used your speed fix idea but I had to change the function to chop the text from the last to the first character to print properly due to the orientation of the font I selected.

You could use reverse.prg from the download.