using bitmaps as text?

He wanted animated characters eBusiness.

Infantry_Nutter, do what eBusiness said except load a few AnimImage's.

Something like this:

Const wtext=8
Const htext=12
Dim characters(3)
Global characters(1)=LoadAnimImage("filewithtext.bmp",wtext,htext,32)
Global characters(2)=LoadAnimImage("filewithtext2.bmp",wtext,htext,32)
Global characters(3)=LoadAnimImage("filewithtext3.bmp",wtext,htext,32)

Function text2(a,b,towrite$,animchar)
  For c=1 To Len(towrite)
    DrawImage characters(animchar),a+(c-1)*wtext,b,Asc(Mid(towrite,c,1))
  Next
End Function

chartimer = Millisecs()

;Main loop
While Not keyhit(1)

  If Millisecs() + 300 > chartimer
    chartimer = Millisecs()
    animchar = animchar + 1 - (3 * (animchar > 2))
  EndIf

Wend