Mine

nn=28
q$=displayquestion$
Repeat

thisline$=q$
If Len(thisline$)>30 Then ;wrap
	n=30:Repeat:n=n+1:Until Mid$(thisline$,n,1)=" " Or n>Len(thisline$)
	
EndIf
Text 366,72+nn,Mid$(thisline$,1,n-1):nn=nn+28
q$=Mid$(q$,n)	
Until n>Len(thisline$)