XProfan

 $H Windows.ph
Struct RECT = left&,top&,right&,bottom&
CLS
Var Text$ = "Das ist ein langer Text, der umgebrochen werden soll"
TextColor $ff,-1
DrawText 10,10,Text$
Var Rect# = New(RECT)
~SetRect(Rect#,10,40,200,100)
~DrawText(%hdc2,Addr(Text$),Len(Text$),Rect#,~DT_WORDBREAK)
Repaint
waitinput
end