InitDesktopBuffer()

SeedRnd MilliSecs()

Type txt
   Field txt$
End Type

file=ReadFile("text.txt")  ;Datei zeilenweise Einlesen
While Not Eof(file)
   txt.txt=New txt
   txt\txt=ReadLine(file)
   count=count+1
Wend
CloseFile file

Local SM_CXFIXEDFRAME=7
Local SM_CYFIXEDFRAME=8
Local SM_CYCAPTION=4
Local SM_CXSCREEN=0
Local SM_CYSCREEN=1
hWnd_width=GetSystemMetrics(SM_CXSCREEN) ;Bildschirmbreite
hWnd_height=GetSystemMetrics(SM_CYSCREEN) ;Bildschirmhöhe

Graphics hWnd_width,hWnd_height,0,2 ;Größe einstellen

pos_x=-GetSystemMetrics(SM_CXFIXEDFRAME)
pos_y=-GetSystemMetrics(SM_CYFIXEDFRAME)-GetSystemMetrics(SM_CYCAPTION)
SetWindowPos(SystemProperty("ApphWnd"),0,pos_x,pos_y,0,0,5) ;Fenster oben links entfernen <>

img=CreateImage(GraphicsWidth(),GraphicsHeight()) ;Funktion von Desktopbuffer
GrabDesktop(ImageBuffer(img),0,0,GraphicsWidth(),GraphicsHeight(),0,0)

timer=CreateTimer(60)

ShowWindow(SystemProperty("ApphWnd"),1)

j=Rand(1,count) ;Text durch Zufall auswählen
For txt=Each txt
   i=i+1
   If i=j Then Exit
Next

x=GraphicsWidth()

;SetFont LoadFont(<Schriftart>,<Größe>,<Status>)
SetFont LoadFont("Arial",90,1)
;Color R,G,B
Color 255,0,0

SetBuffer BackBuffer()
Repeat
   WaitTimer(timer)
   Cls
   
   
   DrawImage img,0,0 ;Hintergrund beibehalten
   
   Text x,GraphicsHeight()/2,txt\txt,0,1  ;Text "laufen" lassen
   
   x=x-3
   If x<-StringWidth(txt\txt) Then x=GraphicsWidth() ;repeat Text
   
   Flip 0
Until MouseHit(2)
End

BufferDirty(BackBuffer())

SetBuffer BackBuffer()