RosettaCodeData/Task/Reverse-a-string/FBSL/reverse-a-string-1.fbsl

Function StrRev1(ByVal $p1)
	dim $b = ""
	REPEAT len(p1)
		b = b & RIGHT(p1,1)
		p1 = LEFT(p1,LEN(p1)-1)
	END REPEAT
	return b
End Function
tasks a-s 2013-04-10 23:57:08 -07:00			`Function StrRev1(ByVal $p1)`
			`dim $b = ""`
update 2013-06-05 21:47:54 +00:00			`REPEAT len(p1)`
			`b = b & RIGHT(p1,1)`
			`p1 = LEFT(p1,LEN(p1)-1)`
			`END REPEAT`
tasks a-s 2013-04-10 23:57:08 -07:00			`return b`
			`End Function`