; UMBRUCH.BB
Text$ = "Dieser lange Text soll jeweils nach 20 Zeichen umgebrochen werden."
Umbruch = 20

Repeat
 Ausgabe$ = Left$(Text$, Umbruch)
 For I=1 To Umbruch
  If Right$(Ausgabe$, 1) <> " " Then
   Ausgabe$ = Left$(Ausgabe$, Umbruch-I)
  Else
   Text$= Right(Text$, Len(Text$) - Umbruch -1 +i)
   I=Umbruch
  EndIf
 Next
 Print Ausgabe$
Until Len(Text$) < Umbruch + 1
Print Text$
WaitKey

Function SuperText(Text$,UmBruch,X,Y)
 Text$=Text$+String(" ",UmBruch*20)
 LenText=Len(Text$)
 Umbruch=Umbruch+1
 Mal=Ceil#(LenText/Umbruch)+1
 For xMal=1 To Mal
  bis=InStr2(Text$," ",Umbruch)

  If String(" ",Bis-1)<>Mid$(Text$,1,Bis-1) Then
    Text x,y,Mid$(Text$,1,Bis-1)
    Y=y+ FontHeight ()
  End If

  If InStr3(Text$," ",Umbruch)=-1 Then 
    Text$=Mid$(Text$,Bis+1)
   Else
    Text$=Mid$(Text$,Bis)
  End If
 Next
End Function

Function InStr2(S$,F$,Ende)
 For X=Ende To 1 Step -1
  If Mid$(S$,X,1)=F$ Then
   Return X
  End If 
 Next
 Return Ende
End Function


Function InStr3(S$,F$,Ende)
 For X=Ende To 1 Step -1
  If Mid$(S$,X,1)=F$ Then
   Return -1
  End If 
 Next
 Return 0
End Function

; This demo is announced as Public Domain
; Use it at your own risk
; Feb, 2006 @ preachie

Print "1: 640x480"
Print "2: 800x600"
Print "3: 1024x768"
Print "4: 1280x1024"
Print ""
Res% = Int(Input("Auflösung? (1,2,3 oder 4): "))

Select Res
   Case 1
      width = 640
      height = 480
   Case 2
      width = 800
      height = 600
   Case 3
      width = 1024
      height = 768
   Case 4
      width = 1280
      height = 1024
   Default
      ; Fallback Szenario bei ungültiger Eingabe
      width = 640
      height = 480      
End Select

maxText = Int(Input("maximale Textbreite (zwischen 150 und "+Str(width)+"): "))

If maxText <= 150 Or maxText > width Then
   ; Fallback-Szenario bei ungültiger Eingabe
   maxText = 400
End If

Graphics width,height,16,2

longText$ = "Das ist ein richtig langer Text, der gar nicht mehr aufhören möchte."
longText = longText + " Der ist echt so lang, dass ich gar nicht mehr weiß was ich noch so alles"
longText = longText + " schreiben soll. Aber ich denke, um das Prinzip hier zu verdeutlichen,"
longText = longText + " sollte die Länge so langsam mal ausreichen. Oder vielleicht doch nicht?"
longText = longText + " Ach doch, das passt schon. Und wenn nicht, dann könnt Ihr den Text ja"
longText = longText + " noch länger machen. Also, dann viel Spaß damit :-)"

Rect 0, 0, maxText, 400, False

SplitString(longText, maxText)

WaitKey

Function SplitString(msg$, w%)
   If StringWidth(msg$) < w Then
      Print msg
   Else
      For char = 1 To Len(msg$)
         If StringWidth(Left(msg$, char)) > w
            If IsAbleToWrap(Mid(msg$,char-1,1))
               Print Left(msg$,char-1)
            Else
               Repeat
                  char = char - 1               
               Until IsAbleToWrap(Mid(msg$,char-1,1))
               Print Left(msg$,char-1)
            End If
               SplitString(Trim(Right(msg$,Len(msg$)-char+1)), w)
            Exit
         End If
      Next
   End If
End Function

Function IsAbleToWrap(char$)
   Select char
      Case "."
         AbleToWrap = True
      Case ","
         AbleToWrap = True
      Case ";"
         AbleToWrap = True
      Case ":"
         AbleToWrap = True
      Case "!"
         AbleToWrap = True
      Case "?"
         AbleToWrap = True
      Case "-"
         AbleToWrap = True
      Case " "
         AbleToWrap = True
      Default
         AbleToWrap = False
   End Select
   
   Return AbleToWrap
End Function

Function SplitString(msg$, w%)
   If StringWidth(msg$) < w Then
      Print msg
   Else
      For char = 1 To Len(msg$)
         If StringWidth(Left(msg$, char)) > w
            Repeat
               char = char - 1               
            Until IsAbleToWrap(Mid(msg$,char,1))

            Print Left(msg$,char)

            SplitString(Trim(Right(msg$,Len(msg$)-char)), w)

            Exit
         End If
      Next
   End If
End Function