;---------------------------------------------Bitmap Font Wizard Code - *START*
Global bmpf=LoadAnimImage("font.bmp",18,33,0,256)
MaskImage bmpf,255,0,255
Global bmpf_frames=255
Dim bmpf_w(bmpf_frames)
bmpf_w(0)=12
bmpf_w(1)=16:bmpf_w(2)=10:bmpf_w(3)=16:bmpf_w(254)=17:bmpf_w(255)=17:
 
; Eigentlich sind die Zahlen von 0 bis 255, ich habe hier aber
; die meisten gelöscht
 
Function bmpf_txt(x,y,txt$)
        charcount=Len(txt$)
        For i=1 To charcount
                char=Asc(Mid(txt$,i,1))
                DrawImage bmpf,x,y,char
                x=x+bmpf_w(char)
        Next
End Function
;---------------------------------------------Bitmap Font Wizard Code - *END*
 
 
Graphics 640, 480, 32, 2
SetBuffer BackBuffer()
 
bmpf_txt 1, 1, "Soße mit Überräulerröhn!"
; Nein, keine Ahnung wie ich auf den Satz gekommen bin.
; Er sagt aber aus, dass ich die Umlaute + ß testen will.
 
Flip
WaitKey
End