textblock( 100, 100, "Spieler, kannst du mir von den Bäumen dahinten etwas Brenholz besorgen, ich glaub das meins nicht reichen wird.", 255)

Function textblock( xs, ys, in$, zbreite) ;zbreite in stringwidth()
    
    Local fetch = 0 ; in Zeichen
    Local zeile = 0 ; TextZeile
    Local zeiley = 15 ; Zeilenabstand
    Local nStr = 0 ; neuer String
    
    While(1)
            ; _____ Finde heraus wieweit du gehen darfst
        fetch = Instr(in$," ",1)
        
        While(1)
            
            If StringWidth(in$) > zbreite Then
                nStr =  StringWidth(Left(in$,Instr(in$," ",fetch+1))) 
                If (nStr > 0) And (nStr < zbreite) Then ;wenn hier das letzte Wort stand, liefert nStr 0 zurück.
                    fetch = Instr(in$," ",fetch+1) ; erhöhe einzulesende Zeichen
                Else
                    Exit
                EndIf
            Else
                fetch = Len(in$)
                Exit
            EndIf
            
        Wend    
            ; _____ Habe es herausgefunden
        
        If (Not fetch) And Len(in$) Then fetch = Len(in$) ;sollte es noch nicht eingelesene Zeichen geben ist es wohl das letzte Wort
        
        If fetch = 0 Then
            Exit
        Else
            zeile = zeile+1
        EndIf
        
        Text xs, ys+(zeile*zeiley), Left(in$, fetch) ; es wird bis zum fetch ausgegeben was in in$ steht
        in$ = Right(in$,Len(in$)-fetch) ;in$ wird angepasst
        
        If (Not Len(in$)) Then Exit
    Wend
    
End Function

Graphics 1024,768,32,2
SetBuffer BackBuffer() ; DoubeBuffering
AppTitle "TextBlockfunction"

Repeat
    
    Local t$ = "dies ist ein langer Text welchen ich in regelmässigen Abständen getrennt haben möchte, am besten da wo Leerzeilen sind und maximal in der Länge der ersten 5 Worte in diesem Text."
    Local trenner = StringWidth("dies ist ein langer Text")
    
    textblock( 100, 100, t$, trenner)
    
    Flip(0)
    Cls
    
Until KeyHit(1) ; Ende der Hauptschleife
End

Function textblock( xs, ys, in$, zbreite) ;zbreite in stringwidth()
	
	Local fetch = 0 ; in Zeichen
	Local zeile = 0 ; TextZeile
	Local zeiley = 15 ; Zeilenabstand
	Local nStr = 0 ; neuer String
	
	While(1)
			; _____ Finde heraus wieweit du gehen darfst
		fetch = Instr(in$," ",1)
		
		While(1)
			
			If StringWidth(in$) > zbreite Then
				nStr =  StringWidth(Left(in$,Instr(in$," ",fetch+1))) 
				If (nStr > 0) And (nStr < zbreite) Then ;wenn hier das letzte Wort stand, liefert nStr 0 zurück.
					fetch = Instr(in$," ",fetch+1) ; erhöhe einzulesende Zeichen
				Else
					Exit
				EndIf
			Else
				fetch = Len(in$)
				Exit
			EndIf
			
		Wend	
			; _____ Habe es herausgefunden
		
		If (Not fetch) And Len(in$) Then fetch = Len(in$) ;sollte es noch nicht eingelesene Zeichen geben ist es wohl das letzte Wort
		
		If fetch = 0 Then
			Exit
		Else
			zeile = zeile+1
		EndIf
		
		Text xs, ys+(zeile*zeiley), Left(in$, fetch) ; es wird bis zum fetch ausgegeben was in in$ steht
		in$ = Right(in$,Len(in$)-fetch) ;in$ wird angepasst
		
		If (Not Len(in$)) Then Exit
	Wend
	
End Function