Graphics 800,600,16,2

 N$ = "Es war entsetzlich kalt; es schneite, und der Abend dunkelte bereits; es war der letzte Abend im Jahre, Silvesterabend. In dieser Kälte und in dieser Finsternis ging auf der Straße ein kleines armes Mädchen mit bloßen Kopfe und nackten Füßen. Es hatte wohl freilich Pantoffel angehabt, als es von Hause fortging, aber was konnte das helfen! Es waren sehr große Pantoffeln, sie waren früher von seiner Mutter gebraucht worden, so groß waren sie, und diese hatte die Kleine verloren, als sie über die Straße eilte, während zwei Wagen in rasender Eile vorüberjagten; der eine Pantoffel war nicht wiederaufzufinden und mit dem anderen machte sich ein Knabe aus dem Staube, welcher versprach, ihn als Wiege zu benutzen, wenn er einmal Kinder bekäme. Almosen gereicht. Hungrig und frostig schleppte sich die arme Kleine weiter und sah schon ganz verzagt und eingeschüchtert aus. Die Schneeflocken fielen auf ihr langes blondes Haar, das schön gelockt über ihren Nacken hinabfloss, aber bei diesem Schmucke weilten ihre Gedanken wahrlich nicht. Aus allen Fenstern strahlte heller Lichterglanz und über alle Straßen verbreitete sich der Geruch von köstlichem Gänsebraten. Es war ja Silvesterabend, und dieser Gedanke erfüllte alle Sinne des kleinen Mädchens. In einem Winkel zwischen zwei Häusern, von denen das eine etwas weiter in die Straße vorsprang als das andere, kauerte es sich nieder. Seine kleinen Beinchen hatte es unter sich gezogen, aber es fror nur noch mehr und wagte es trotzdem nicht, nach Hause zu gehen, da es noch kein Schächtelchen mit Streichhölzern verkauft, noch keinen Heller erhalten hatte. Es hätte gewiss vom Vater Schläge bekommen, und kalt war es zu Hause ja auch; sie hatten das bloße Dach gerade über sich, und der Wind pfiff schneidend hinein, obgleich Stroh und Lumpen in die größten Ritzen gestopft waren. Ach, wie gut musste ein Schwefelhölzchen tun! Wenn es nur wagen dürfte, eins aus dem Schächtelchen herauszunehmen, es gegen die Wand zu streichen und die Finger daran zu wärmen! Endlich zog das Kind eins heraus. Ritsch! wie sprühte es, wie brannte es. Das Schwefelholz strahlte eine warme helle Flamme aus, wie ein kleines Licht, als es das Händchen um dasselbe hielt. Es war ein merkwürdiges Licht; es kam dem kleinen Mädchen vor, als säße es vor einem großen eisernen Ofen mit Messingbeschlägen und Messingverzierungen; das Feuer brannte so schön und wärmte so wohltuend! Die kleine streckte schon die Füße aus, um auch diese zu wärmen - da erlosch die Flamme. Der Ofen verschwand - sie saß mit einem Stümpchen des ausgebrannten Schwefelholzes in der Hand da. Ein neues wurde angestrichen, es brannte, es leuchtete, und an der Stelle der Mauer, auf welche der Schein fiel, wurde sie durchsichtig wie ein Flor. Die Kleine sah gerade in die Stube hinein, wo der Tisch mit einem blendend weißen Tischtuch und feinem Porzellan gedeckt stand, und köstlich dampfte die mit Pflaumen und Äpfeln gefüllte, gebratene Gans darauf. Und was noch herrlicher war, die Gans sprang aus der Schüssel und watschelte mit Gabel und Messer im Rücken über den Fußboden hin; gerade die Richtung auf das arme Mädchen schlug sie ein."
 SetBuffer BackBuffer()
 start = MilliSecs()
 Repeat
  Cls
  Color 128,128,128
  Rect 50,50,700,500,0
  brText 50,50,N$, 700
  Color 255,0,0
  brText 50,50,Fill(F$,N$), 700
  If s=0 Then start=Millisecs()
  Timedif = MilliSecs() - start
   Text 100,550,Maketime(Millisecs()-Start),1
   Text 175,570,"Anschläge: " + (Len(F)+Fehler),0
    Text 175,550,"Buchstaben: " + Len(F),0
   Text 300,550,"Übrig: " + (Len(N)-Len(F))
   Text 300,570,"Fehler: " + Fehler 
  flip

  K=GetKey()
  If k
   s=1
   If K = Asc(Mid$(N$, Len(F$)+1, 1))  Then
      F$ = F$ + Chr$(k)
     Else
      Fehler = Fehler + 1
   End if   
  End if

  If F$ = N$ Then Exit
  If KeyHit(1) end
 Forever
 timedif = MilliSecs() - start
 cls
 Fileout = WriteFile("Stats.txt")
 Text 50,50, "Fertig!"
 Text 50,70, "Richtige Anschläge pro Minute: " + (Len(F)/(Timedif/60000.0))
 Text 50,90, "Falsche Anschläge pro Minute: " + (Fehler/(Timedif/60000.0))
 Text 50,110, "Insgesammt Anschläge pro Minute: " + ((Fehler+Len(F))/(Timedif/60000.0))
 Text 50,130, "Fehlerquotient: " + (100.0/(Len(F)+Fehler)*Fehler) + "%"
 WriteLine Fileout, "Richtige Anschläge pro Minute: " + (Len(F)/(Timedif/60000.0))
 WriteLine Fileout, "Falsche Anschläge pro Minute: " + (Fehler/(Timedif/60000.0))
 WriteLine Fileout, "Insgesammt Anschläge pro Minute: " + ((Fehler+Len(F))/(Timedif/60000.0))
 WriteLine Fileout, "Fehlerquotient: " + (100.0/(Len(F)+Fehler)*Fehler) + "%"
 CloseFile Fileout
 Flip
 Delay 1000
 FlushKeys()
 WaitKey()
 
EndGraphics

Function brtext(X,Y,T$,MX)
 T$ = T$ + " "
 For Z = 0 To Len(T$)
  If Mid$(T$,Z,1) = " " Or Mid$(T$,Z,1) = "^" Then
   If (stringwidth(Ausgabe$+wort$) > MX) Or (Mid$(T$,Z,1) = "^")
    Text x,y,ausgabe$
    ausgabe$ = ""
    y = y + StringHeight(" ")
   End if
   Ausgabe$ = Ausgabe$ + Wort$ + " "
   wort$ = ""
  else
   Wort$ = Wort$ + Mid$(T$,Z,1)
  End If
 Next
 Text X,Y,Ausgabe$ + wort$
End Function

Function fill$(T$, N$)
 A$ = T$
; If A$ = N$ Then Return A$
 For X = Len(T$) To Len(N$)
  If Len(A$) = Len(N$) Then Return A$
  If Mid$(N$,X+1,1) = " "
    Return a$
  Else
   a$ = a$ + "_"
  End if
 Next
  Return a$
End Function

Function maketime$(MS)
 H$ = MS/3600000
 M$ = MS/60000 Mod 60
 S$ = MS/1000 Mod 60
 Mil$ = MS Mod 1000
 If Len(H$) = 1 Then H$ = "0" + H$
 If Len(M$) = 1 Then M$ = "0" + M$
 If Len(S$) = 1 Then S$ = "0" + S$
 If Len(Mil$) < 4 Then Mil$ = String$("0",3-len(mil$))+Mil$
 Return H$+":"+M$+":"+S$+"'"+mil
End function

For Z = 0 To Len(T$)

For Z = 1 To Len(T$)