Function xtext(txt$,x,y,xfont)     ; xfont: nummer des verwendeten fonts
le=Len(txt$)

sizex=fpicx(xfont)        ; grösse des fonts pro buchstabe abrufen
sizey=fpicy(xfont)

For l=1 To le
   For i=0 To 127
      If Mid$(txt$,l,1)=Mid$(fstring$(xfont),i+1,1)     ; welcher buchstabe ist es ... der teil funktioniert
         frame=i
         i=128
      EndIf
   Next
   bx=(l-1)*fpicx(xfont)+x     ; buchstabe x+y ausrechnen
   by=y
   For m=1 To sizey*sizex
      For x1=1 To sizex
         x1=m/sizey
         y1=m Mod sizex
         wx=bx+x1
         wy=by+y1
         If font(frame,x1,y1,xfont)=1           ; hier ist gespeichert, ob der punkt gezeichnet werden soll oder nicht
            If wx>=0 And wx<=screenx And wy>=0 And wy<=screeny ;sicherheitsabfrage für den writepixelfast 
               WritePixelFast wx,wy,$FFFFFFFF
            EndIf
         EndIf
      Next
   Next
Next
End Function

xtext ("Beispiel",100,700,2)             ; text,x,y,schrifart