Function SplitText(ss$,max,x,y,widt,height)
   max=max+1
   Dim row$(100)
   sx=x
   sy=y
   ;aufteilen
   l=Len(ss$)
   teile=l/max
      For i=1 To l
         t=t+1
         If t=max
            y=y+height
            x=sx
            t=0
         Else
            Text x,y,Mid(ss$,i,1)
            x=x+widt
         EndIf
      Next 
End Function 

Graphics 800, 600, 16, 2
SetBuffer BackBuffer()

Zeilenumbruch "Hallo dieses ist ein Zeilenumbruch-Text, er ist lang und benötigt deswegen den Zeilenumbruch", 100, 100, 100, 150
WaitKey()
End





Function Zeilenumbruch (t$, pX, pY, w, h)

   Rect pX, pY, w, h, 0   
   nx = pX
   ny = pY
   nt$ = ""
   i = 0
   lt = Len(t$)
   While Len(t$) > 0
      i = i + 1
      
      If StringWidth(Left$(t$, i)) < w And i <= Len(t$) Then
         nt$ = Left$(t$, i)
      Else
         Text nx, ny, nt$
         t$ = Mid$(t$, i, -1)
         i = 0
         nt$ = ""                                       
         ny = ny + 1.2 * StringHeight(t$)
      End If
   Wend

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

ZeilenUmbruch("Hallo dieses ist ein Zeilenumbruch-Text, er ist lang und benötigt deswegen den Zeilenumbruch",50,50, 150)
WaitKey

Function ZeilenUmbruch(Txt$,px,py, w)
   If txt="" Or w<FontWidth() Return
   Text px,py,Mid$(Txt,1,(w/FontWidth()))
   ZeilenUmbruch(Mid$(Txt,(w/FontWidth())+1), px,py+FontHeight(), w)
End Function

Function SplitString(msg$,x,y,w%,style) ;Style:0normal,1 zentriert; w gibt die breite an
   If StringWidth(msg$) < w Then
      If style=0 Then Text x,y,msg
     If style=1 Then Text (x+(w/2))-(StringWidth(msg)/2),y,msg$
    
   Else
      For char = 1 To Len(msg$)
       i=i+1
         If StringWidth(Left(msg$, char)) > w
            Repeat
               char = char - 1               
            Until IsAbleToWrap(Mid(msg$,char,1))

            If style=0 Then Text x,y,Left(msg$,char)
         If style=1 Then Text (x+(w/2))-StringWidth(Left(msg$,char))/2,y,Left(msg$,char)


            SplitString(Trim(Right(msg$,Len(msg$)-char)),x,y+FontHeight()+3, w,style)

            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

 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

   Select char
      Case ".", ",", ";", ":", "!", "?", "-", " "
         AbleToWrap = True
      Default
         AbleToWrap = False
   End Select

Graphics 800, 600, 16, 2
AppTitle ("Beispiel für ein Textfeld von SpionAtom")
SetBuffer BackBuffer()

   t$ = "Es war einmal ein kleiner Programmierer, der war sehr hungrig. Also aß er seine Tastatur auf. Dabei achtete er aber nicht darauf, dass er keine F-Tasten vertug. Also bekam er Bauchschmerzen. Und da half nur noch ein kräftiger Schluck aus der Druckerpatrone. Und am Ende konnte er wieder gesund und zufrieden programmieren."

         textFeld (t$, 100, 100, 400, 300)

Flip()
WaitKey()
End()

Function textFeld (t$, pX, pY, w, h)

   Rect pX, pY, w, h, 0   
   nx = pX
   ny = pY
   zeilen = 0
   nt$ = ""
   i = 0
   lt = Len(t$)
   While Len(t$) > 0
      i = i + 1
       
      If StringWidth(Left$(t$, i)) < w And i <= Len(t$) Then
         nt$ = Left$(t$, i)
      Else
        For j = Len(nt$) To 1 Step -1
         If Mid$(nt$, j, 1) = " " Then
            nt$ = Left$(nt$, j)
            i = j + 1
            Exit
         End If
        Next            
      
         Text nx, ny, nt$
         t$ = Mid$(t$, i, -1)
         i = 0
         nt$ = ""                                       
         ny = ny + 1.2 * StringHeight(t$)
        zeilen = zeilen + 1
        If (zeilen + 1) * (1.2 * StringHeight(t$)) => h Then Exit
      End If
   Wend
   Print zeilen

End Function

Graphics 800, 600, 16, 2
AppTitle ("Beispiel für ein Textfeld von SpionAtom mit Scrolling von FreetimCoder")
SetBuffer BackBuffer()

a = 0
MSG$ = "Dies ist ein Test um den Zeilenumbruch mit scrolling zu üben. Aber das klappt noch nicht so gut und deswegen muss der Text verlängert werden. Klappt trotzdem nicht :( Jetzt klappts schon *Freu* :) "
While ml < Len(MSG$)+1
   Cls
   textFeld(Left$(MSG$,ml)+" ", 100, 100, 400, 300)
   Delay(50)
   ml = ml + 1
   Flip
Wend
WaitKey()


Function textFeld (t$, pX, pY, w, h)
nx = pX
ny = pY
zeilen = 0
nt$ = ""
i = 0
lt = Len(t$)
While Len(t$) > 0
i = i + 1

If StringWidth(Left$(t$, i)) < w And i <= Len(t$) Then
nt$ = Left$(t$, i)
Else
For j = Len(nt$) To 1 Step -1
If Mid$(nt$, j, 1) = " " Then
nt$ = Left$(nt$, j)
i = j + 1
Exit
End If
Next

Text nx, ny, nt$
t$ = Mid$(t$, i, -1)
i = 0
nt$ = ""
ny = ny + 1.2 * StringHeight(t$)
zeilen = zeilen + 1
If (zeilen + 1) * (1.2 * StringHeight(t$)) => h Then Exit
End If
Wend

End Function