Graphics 800,600,16,2
ClsColor 255,255,255
Color 0,0,0
font1 = LoadFont("Verdana", 100,1)
font2 = LoadFont("Verdana", 40,1)
SetFont font1
SeedRnd MilliSecs()

stufe = 1


SetBuffer BackBuffer()
repeat
   Cls
   Color 128,128,128
   Oval 390,290,20,20,0
   Line 400,280,400,320
   Line 380,300,420,300
   Flip
   Color 0,0,0
   Delay 2000
   st$ = ""
   For x = 1 To stufe
      ozahl = zahl
      repeat
         zahl = Rand(0,9)
      Until zahl <> ozahl
      st$ = st$ + zahl
      cls
      Text 400,300, Zahl, 1, 1
      Flip
      Delay 200
      Cls
      Flip
      Delay 20
   Next
   ust$ = ""
   FlushKeys()
   Repeat
      z$ = Chr$(getkey())
      If KeyHit(14) Or KeyHit(83) ust$ = Left(ust$, Len(ust$)-1)
      For x = 0 To 9
          If(z$) = x ust$ = ust$ + z$
      Next
      Cls
      Text 400,300,ust$,1,1
      Flip
      If KeyHit(1) end
   Until KeyHit(28) Or KeyHit(156)
   SetFont font2
   FlushKeys()
   If ust$ = st$
      cls
      Text 400,300, "Stufe " + Stufe + " gelöst",1,1
      flip
      WaitKey()
   Else
      cls
      Text 400,250, "Falsch - Du hast es bis Stufe " + (Stufe-1) + " geschafft!",1,1
      Text 400,300, "Deine Eingabe:" + ust$,1,1
      Text 400,350, "Die Lösung: " + st$, 1, 1
      flip
      WaitKey()
      End
   End If
   SetFont font1
   stufe = stufe + 1
forever