graph_x = 1280
graph_y = 960

Graphics graph_x,graph_y,0,2

;---------------------------------------------Bitmap Font Wizard Code - *START*
Global bmpfile=LoadAnimImage("1280,960.png",59,126,0,10)
ResizeImage bmpfile, graph_y/16.27118,.13125*graph_y
MaskImage bmpfile,255,255,255
Global bmpfile_frames=9
Dim bmpfile_c(bmpfile_frames)
bmpfile_c(0)=48
bmpfile_c(1)=49
bmpfile_c(2)=50
bmpfile_c(3)=51
bmpfile_c(4)=52
bmpfile_c(5)=53
bmpfile_c(6)=54
bmpfile_c(7)=55
bmpfile_c(8)=56
bmpfile_c(9)=57
Dim bmpfile_w(bmpfile_frames)
bmpfile_w(0)=graph_y/27.428
bmpfile_w(1)=graph_y/45.714
bmpfile_w(2)=graph_y/25.263
bmpfile_w(3)=graph_y/21.818
bmpfile_w(4)=graph_y/18.113
bmpfile_w(5)=graph_y/25.263
bmpfile_w(6)=graph_y/27.428
bmpfile_w(7)=graph_y/27.428
bmpfile_w(8)=graph_y/38.4
bmpfile_w(9)=graph_y/27.428

Function bmpfile_txt(x,y,txt$)
   charcount1=Len(txt$)
   For i=1 To charcount1
      char=Asc(Mid(txt$,i,1))
      If char=32
         x=x+39
      Else
         For j=0 To bmpfile_frames
            If bmpfile_c(j)=char Then
               DrawImage bmpfile,x,y,j
               x=x+bmpfile_w(j)
               Exit
            EndIf
         Next
      EndIf
   Next
End Function
;---------------------------------------------Bitmap Font Wizard Code - *END*

ClsColor 0,255,0
Cls
bmpfile_txt (10,10,"10 20 30 40 50 60 70 80 90 100")
bmpfile_txt (10,100,"134567890")
Flip
WaitKey()