It's better to just use paste image.
I wrote this in Classic for Saberdude a while back (I looked for the thread but couldn't find it):
` Load the picture of the font
load bitmap "changedfont.png"
` Get the images
` It may seem like odd numbers to start with the images but it makes it easier
` to work with later.
` A through Z
x=0:y=0
for t=65 to 90
get image t,x,y,x+32,y+32
` box x,y,x+31,y+31: `Remove the rem mark to see what its doing.
x=x+33:if x=297 then x=0:y=y+33
next t
get image 46,264,66,296,98: ` .
get image 44,0,99,32,131: ` ,
get image 34,33,99,65,131: ` "
get image 45,66,99,98,131: ` -
get image 43,99,99,131,131: ` +
get image 33,132,99,164,131: ` !
get image 63,165,99,197,131: ` ?
get image 40,198,99,230,131: ` (
get image 41,231,99,263,131: ` )
get image 39,264,99,296,131: ` '
get image 58,0,132,32,164: ` :
get image 59,33,132,65,164: ` ;
` 0 through 9
x=66:y=132
for t=48 to 57
get image t,x,y,x+32,y+32
` box x,y,x+31,y+31: `Take off the rem mark to see what its doing.
x=x+33:if x=297 then x=0:y=y+33
next t
WriteText(0,300,"HELLO SABERDUDE.")
WriteText(0,344,"THIS IS A NICE")
WriteText(0,378,"FONT! :-)")
wait key
` Function to write text based on the ascii character code numbers
function WriteText(x,y,t$)
for t=1 to len(t$)
a=asc(upper$(mid$(t$,t)))
if a>32 then paste image a,x,y
x=x+33
next t
endfunction
