Graphics 800,600,16,2

font = LoadFont ("allegro",20,0,1,0)
SetFont (font)

braun = LoadAnimImage ("dat\braun.bmp",1,1,0,10)
file = ReadFile ("dat\text.txt")
Global id

Type tl
  Field id,txt$
End Type

id = 0
While Not Eof (file)
  t.tl = New tl
  t\id = id
  t\txt$ = ReadLine(file)
  id = id + 1
Wend

id = id*25
rolle = CreateImage(600,id+100)
SetBuffer ImageBuffer(rolle)
  For y = 25 To id+75
    For x = 25 To 575
      DrawBlock braun,x,y,Rand(0,9)
    Next
  Next
  For p = 0 To 100*id
    DrawImage braun,Rand(0,600),Rand(0,id+100)
  Next
SetBuffer BackBuffer()

DrawBlock rolle,100,0
WaitKey() 

CloseFile (file)

End

While Not Eof (file)