Function DrawMultilineText:Int( text:String, x:Int, y:Int, lineWidth:Int = 0, cWidth:Int = 0, cHeigth:Int = 0, autobreak:Byte = 0 )

	Local linePos:Int = 0
	Local textPos:Int = 0
	
	Local width:Int = 0
	Local height:Int = TextHeight( "A" )

	For Local pos:Int = 1 To text.length
	
		Local character:Byte = Asc( Mid( text, pos, 1 ) )
		
		width = TextWidth( Chr( character ) )
		
		If ( textPos / ( cWidth + 1 ) ) >= lineWidth And autobreak = 1
			linePos:+ 1
			textPos = 0
		EndIf
		
		If character = 10	'break
			linePos:+1
			textPos = 0	
		Else
			DrawText Chr( character ), x + textPos, y + linePos * ( height + cHeigth)
			textPos:+ ( width + cWidth )		
		EndIf
	
	Next
	
	Return linePos

EndFunction

Function DrawMultilineText(str:String, x:Int, y:Int, width:Int)
	Local lastBreak:Int=-1, lastBegin:Int = 0, substr:String
	Local i:Int, char:Int
	
	For i=0 To str.length-1
		char = str[i]
		If char = 32 Or char = 10 Then
			lastBreak = i
		EndIf
		If TextWidth( str[lastBegin..i+2].Trim() ) > width Or char = 10 Then
			If lastBreak=-1 Then lastBreak = i
			substr = str[lastBegin..lastBreak+1]

			lastBegin = lastBreak+1
			lastBreak = -1
			DrawText substr, x, y
			y :+ TextHeight(substr)
		EndIf
		
	Next
	DrawText str[lastBegin..], x, y
End Function

SuperStrict

Graphics 800,600
SetBlend ALPHABLEND
SetClsColor 80,80,80

Local timer:TTimer = CreateTimer(30,Null)

SetImageFont LoadImageFont("C:/Windows/Fonts/Arial.ttf",14) 
Local txt:String

txt =  "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nullam ullamcorper erat sed mi sagittis sit amet sollicitudin sapien molestie. In sollicitudin, dui eu hendrerit sagittis, sapien magna blandit nulla, a gravida felis metus eget turpis. Phasellus adipiscing nunc ut eros bibendum a mollis elit consequat. Maecenas vitae scelerisque mauris. In feugiat mi lorem, id lobortis felis. Vivamus ac neque at leo tincidunt viverra id et augue. Nulla facilisi. Aenean euismod felis sit amet nisi lobortis egestas vitae id tellus. Vivamus pretium lorem vel nulla faucibus et posuere diam malesuada. Fusce nunc diam, convallis non porttitor et, congue luctus nisi."
txt :+ Chr(10) + "In ullamcorper euismod magna eget adipiscing. Proin est nulla, luctus a pharetra nec, volutpat ac mauris. Proin condimentum lacinia viverra. Proin pellentesque scelerisque ipsum, quis tincidunt tortor sagittis a. Vivamus tristique dapibus tellus eget ornare. Phasellus eget erat justo, ut ultrices purus. Suspendisse potenti. Morbi faucibus erat ac arcu ornare ac rutrum eros aliquet. Vivamus scelerisque cursus nibh ut tincidunt. Quisque molestie, leo ac condimentum tristique, nunc elit lobortis mauris, vel sodales augue velit a leo. Aenean tristique ornare consectetur. Maecenas risus lectus, aliquam ac placerat non, tempor vehicula dui."
txt :+ Chr(10) + "Aenean ante orci, fringilla ut vulputate at, ultricies auctor erat. Aliquam dignissim diam id turpis rutrum vulputate. Suspendisse vehicula volutpat nisi, et venenatis magna auctor et. Etiam fermentum mollis vestibulum. Cras rhoncus, quam non porta congue, arcu est luctus mauris, vitae mollis elit magna in erat. Nam viverra elementum quam eget eleifend. Aenean sit amet sem aliquet ante convallis aliquam sed a nibh. Donec orci ipsum, pretium vel blandit at, suscipit sed libero. Nulla tristique pellentesque ligula, vel consectetur eros fermentum et. Morbi ullamcorper mollis dui in tincidunt. Suspendisse ultrices quam vulputate augue tempor accumsan. Ut ullamcorper sodales tempus. Suspendisse potenti. Nunc at ligula ac dui ullamcorper pretium ac ac velit. Morbi erat lectus, aliquet id condimentum id, tristique vel tortor. Aliquam eget odio sem, in commodo nisi."
txt :+ Chr(10) + "Sed rhoncus lacinia sem, et mattis nulla tincidunt a. Donec egestas aliquet velit at euismod. Suspendisse dapibus libero id nulla pretium in semper libero suscipit. Ut vestibulum vehicula dapibus. Suspendisse potenti. Nunc bibendum velit nibh, ac interdum diam. Donec sodales volutpat nisl non feugiat. Quisque vestibulum sem nec magna tincidunt vel feugiat dui ullamcorper. Nullam sapien orci, malesuada vel sollicitudin in, molestie et tortor. Donec interdum eleifend commodo."
txt :+ Chr(10) + "Fusce enim erat, rutrum at porttitor ac, fermentum sit amet orci. Donec cursus accumsan turpis, eget imperdiet tortor mollis eget. Fusce id lacus at mi aliquet auctor. Nulla elit tortor, interdum ac ultricies vel, cursus sit amet nunc. Nunc adipiscing lacinia nisi auctor fringilla. In elit odio, pellentesque scelerisque gravida at, lobortis ac eros. Proin scelerisque diam at leo placerat egestas. Quisque vitae cursus eros. Vestibulum dignissim, dui ac sodales volutpat, ligula risus cursus tellus, sed hendrerit nisi felis eu dolor. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Duis sed nunc purus, ut congue eros. Phasellus vestibulum magna et nibh accumsan congue. Praesent luctus lorem sapien. Sed semper pretium."

Local width:Int = 500


Repeat

	Cls
	
	SetColor 255,255,255
	DrawRect 25,0,width,600
	SetColor 0,0,0
	
	DrawMultilineText txt,25,25,width
	
	Flip 0
	WaitTimer timer

	width :+ (KeyDown(KEY_RIGHT)-KeyDown(KEY_LEFT))*5

Until AppTerminate() Or KeyHit(KEY_ESCAPE)

Const ALIGN_LEFT:Int = 0
Const ALIGN_CENTER:Int = 1
Const ALIGN_RIGHT:Int = 2
Const ALIGN_JUSTIFY:Int = 3
Function DrawMultilineText(str:String, x:Int, y:Int, width:Int, align:Int=ALIGN_LEFT)
	Local lastBreak:Int=-1, lastBegin:Int = 0, substr:String
	Local i:Int, char:Int, nx:Int
	
	For i=0 To str.length-1
		char = str[i]
		If i=str.length-1 Then char = 10
		If char = 32 Or char = 10 Then
			lastBreak = i
		EndIf
		
		If TextWidth( str[lastBegin..i+2].Trim() ) > width Or char = 10 Then
			If lastBreak=-1 Then lastBreak = i
			substr = Trim(str[lastBegin..lastBreak+1])

			lastBegin = lastBreak+1
			lastBreak = -1
			
			Select align
				Case ALIGN_LEFT
					DrawText substr, x, y
					
				Case ALIGN_CENTER
					nx = x+width/2-TextWidth(substr)/2
					DrawText substr, nx, y
				Case ALIGN_RIGHT
					nx = x+width-TextWidth(substr)
					DrawText substr, nx, y
					
				Case ALIGN_JUSTIFY
					If char<>10 Then
						DrawTextJustify substr, x, y, width
					Else
						DrawText substr, x, y
					EndIf
			
			End Select
			y :+ TextHeight(substr)
		EndIf
		
	Next
End Function

Function DrawTextJustify(str:String, x:Int, y:Int, width:Int)
	
	Local arr:String[] = str.split(" ")
	Local aStr:String = str.Replace(" ", "")
	Local spaceWidth:Float = (width-TextWidth(aStr)) /  Float(arr.length-1)
	Local fx:Float = x, i:Int
	
	For i=0 To arr.length-1
		DrawText arr[i], Int(fx), y
		fx :+ TextWidth(arr[i])+spaceWidth
	Next

End Function

SuperStrict

Graphics 800,600
SetBlend ALPHABLEND
SetClsColor 80,80,80

Local timer:TTimer = CreateTimer(30,Null)

SetImageFont LoadImageFont("C:/Windows/Fonts/Arial.ttf",14) 
'SetImageFont LoadImageFont("/Library/Fonts/Arial.ttf",14) 
Local txt:String

txt =  "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nullam ullamcorper erat sed mi sagittis sit amet sollicitudin sapien molestie. In sollicitudin, dui eu hendrerit sagittis, sapien magna blandit nulla, a gravida felis metus eget turpis. Phasellus adipiscing nunc ut eros bibendum a mollis elit consequat. Maecenas vitae scelerisque mauris. In feugiat mi lorem, id lobortis felis. Vivamus ac neque at leo tincidunt viverra id et augue. Nulla facilisi. Aenean euismod felis sit amet nisi lobortis egestas vitae id tellus. Vivamus pretium lorem vel nulla faucibus et posuere diam malesuada. Fusce nunc diam, convallis non porttitor et, congue luctus nisi."
txt :+ Chr(10) + "In ullamcorper euismod magna eget adipiscing. Proin est nulla, luctus a pharetra nec, volutpat ac mauris. Proin condimentum lacinia viverra. Proin pellentesque scelerisque ipsum, quis tincidunt tortor sagittis a. Vivamus tristique dapibus tellus eget ornare. Phasellus eget erat justo, ut ultrices purus. Suspendisse potenti. Morbi faucibus erat ac arcu ornare ac rutrum eros aliquet. Vivamus scelerisque cursus nibh ut tincidunt. Quisque molestie, leo ac condimentum tristique, nunc elit lobortis mauris, vel sodales augue velit a leo. Aenean tristique ornare consectetur. Maecenas risus lectus, aliquam ac placerat non, tempor vehicula dui."
txt :+ Chr(10) + "Aenean ante orci, fringilla ut vulputate at, ultricies auctor erat. Aliquam dignissim diam id turpis rutrum vulputate. Suspendisse vehicula volutpat nisi, et venenatis magna auctor et. Etiam fermentum mollis vestibulum. Cras rhoncus, quam non porta congue, arcu est luctus mauris, vitae mollis elit magna in erat. Nam viverra elementum quam eget eleifend. Aenean sit amet sem aliquet ante convallis aliquam sed a nibh. Donec orci ipsum, pretium vel blandit at, suscipit sed libero. Nulla tristique pellentesque ligula, vel consectetur eros fermentum et. Morbi ullamcorper mollis dui in tincidunt. Suspendisse ultrices quam vulputate augue tempor accumsan. Ut ullamcorper sodales tempus. Suspendisse potenti. Nunc at ligula ac dui ullamcorper pretium ac ac velit. Morbi erat lectus, aliquet id condimentum id, tristique vel tortor. Aliquam eget odio sem, in commodo nisi."
txt :+ Chr(10) + "Sed rhoncus lacinia sem, et mattis nulla tincidunt a. Donec egestas aliquet velit at euismod. Suspendisse dapibus libero id nulla pretium in semper libero suscipit. Ut vestibulum vehicula dapibus. Suspendisse potenti. Nunc bibendum velit nibh, ac interdum diam. Donec sodales volutpat nisl non feugiat. Quisque vestibulum sem nec magna tincidunt vel feugiat dui ullamcorper. Nullam sapien orci, malesuada vel sollicitudin in, molestie et tortor. Donec interdum eleifend commodo."
txt :+ Chr(10) + "Fusce enim erat, rutrum at porttitor ac, fermentum sit amet orci. Donec cursus accumsan turpis, eget imperdiet tortor mollis eget. Fusce id lacus at mi aliquet auctor. Nulla elit tortor, interdum ac ultricies vel, cursus sit amet nunc. Nunc adipiscing lacinia nisi auctor fringilla. In elit odio, pellentesque scelerisque gravida at, lobortis ac eros. Proin scelerisque diam at leo placerat egestas. Quisque vitae cursus eros. Vestibulum dignissim, dui ac sodales volutpat, ligula risus cursus tellus, sed hendrerit nisi felis eu dolor. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Duis sed nunc purus, ut congue eros. Phasellus vestibulum magna et nibh accumsan congue. Praesent luctus lorem sapien. Sed semper pretium."

Local width:Int = 500
Local cAlign:Int = ALIGN_LEFT

Repeat

	Cls
	
	SetColor 255,255,255
	
	Select cAlign
		Case ALIGN_LEFT
			DrawText "LEFT",25,2
		Case ALIGN_CENTER
			DrawText "CENTER",25,2
		Case ALIGN_RIGHT
			DrawText "RIGHT",25,2
		Case ALIGN_JUSTIFY, 25,5
			DrawText "JUSTIFY", 25, 2
	End Select
	If KeyHit(KEY_TAB) Then cAlign = (cAlign+1) Mod 4
	
	DrawRect 20,20,width+10,600
	SetColor 0,0,0
	
	DrawMultilineText txt,25,25,width,cAlign
	
	Flip 0
	WaitTimer timer

	width :+ (KeyDown(KEY_RIGHT)-KeyDown(KEY_LEFT))*5

Until AppTerminate() Or KeyHit(KEY_ESCAPE)