XProfan

 $H Windows.ph
Struct RECT = left&,top&,right&,bottom&
CLS
Var Texto$ = "Das es una langer Texto, el umgebrochen voluntad soll"
Color del texto $ff,-1
DrawText 10,10,Texto$
Var Rect# = New(RECT)
~SetRect(Rect#,10,40,200,100)
~DrawText(%hdc2,Addr(Texto$),Len(Texto$),Rect#,~DT_WORDBREAK)
Repaint
waitinput
end