Word Wrap - Simple Version #1

SuperStrict

Local a:String="This string is very long and we (x+y=34*sqr(z)/cos(r)*pi+(x*y)/87) will test various length texts."+..
	"  To test these functions for proper goodness is the stuff of dreams.  And "+..
	"the dreams are (x+y=34*sqr(z)/cos(r)*pi+(x*y)/87) here and not there.  But what if the dreams and here"+..
	" and not there?  Well, if the first and second part are not in the third part then the third part is "+..
	"not the circle of the square.  But sometimes things are not as they seem.  Even though the seem is there,"+..
	"it may not be there when we look into the seemingly endlessness of space and time...  Oh, but there is"+..
	"no time like the present even though there is no present in the time of the timeness that is time."

Local boxwidth:Int=20

DoMyWrap(a,boxwidth)
End

'------------------Start of Function ----------------------------
Function DoMyWrap(a:String, width:Int)
	Local s:Int, e:Int
	
	s=1
	e=width
	
	While s<Len(a)
		If Len(a)<e Then
			Print a
			Exit
		ElseIf s+e>=Len(a) Then
			Print Mid(a,s)
			Exit
		End If
		
		While Mid(a,s+e,1)<>" " And e>0
			e=e-1
		Wend
		
		If e=0 Then
			Print Mid(a,s,width)
			s=s+width
			e=width
		Else
			Print Mid(a,s,e)
			s=s+e+1
			e=width
		End If
	Wend

End Function

Local a:String="This string is very long and we (x+y=34*sqr(z)/cos(r)*pi+(x*y)/87) will test various length texts."+..
	"  To test these functions for proper goodness is the stuff of dreams.  And "+..
	"the dreams are (x+y=34*sqr(z)/cos(r)*pi+(x*y)/87) here and not there.  But what if the dreams and here"+..
	" and not there?  Well, if the first and second part are not in the third part then the third part is "+..
	"not the circle of the square.  But sometimes things are not as they seem.  Even though the seem is there,"+..
	"it may not be there when we look into the seemingly endlessness of space and time...  Oh, but there is"+..
	"no time like the present even though there is no present in the time of the timeness that is time."

Local display:String=a
Repeat
	Local txt:String=Wrapper(display,30)
	Print txt
Until txt=""

Function Wrapper:String(text:String Var,width:Int)
	Local result:String
	If Len(text)>width
		Local spotcheck:Int=width
		Local char:String
		Repeat
			spotcheck:-1
			char=Mid(text,spotcheck,1)
		Until char=" " Or spotcheck=0
		If spotcheck=0
			' no breaks
			result=Left(text,width)
			text=Right(text,Len(text)-width)
		Else
			result=Left(text,spotcheck-1)
			text=Right(text,Len(text)-spotcheck)
		End If
	Else
		result=text
		text=""
	End If
	Return result
End Function

a$ = "This string is very long and we (x+y=34*sqr(z)/cos(r)*pi+(x*y)/87) will test various length texts."
a = a + "  To test these functions for proper goodness is the stuff of dreams.  And "
a = a +	"the dreams are (x+y=34*sqr(z)/cos(r)*pi+(x*y)/87) here and not there.  But what if the dreams and here"
a = a +	" and not there?  Well, if the first and second part are not in the third part then the third part is "
a = a +	"not the circle of the square.  But sometimes things are not as they seem.  Even though the seem is there,"
a = a +	"it may not be there when we look into the seemingly endlessness of space and time...  Oh, but there is"
a = a +	"no time like the present even though there is no present in the time of the timeness that is time."

;BEGIN
Wrapper(a,40)
WaitKey()           
End
;END PROGRAM

Function Wrapper$(Var$,width)
	While Var <> ""
		result$ = ""
	;if length of string is greater than our width
		If Len(Var) > width
			spotcheck = width
			char$ = ""
		;Look for the last space in our next 'width chunk' of the MasterText
			Repeat
				spotcheck = spotcheck - 1
				char = Mid(Var,spotcheck,1)
			Until char = " " Or spotcheck = 0
		;didn't find a space
			If spotcheck = 0
				result = Left(Var,width)
				Var = Right(Var,Len(Var) - width)
		;found a space
			Else
				result = Left(Var,spotcheck - 1)
				Var = Right(Var,Len(Var) - spotcheck) 
			EndIf
	;length of string is less than return width so send it all back
		Else
			result=Var
			Var=""
		EndIf
		Print result
	Wend
End Function