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

Function StrRev2(ByVal $p1)
	dim $b = "", %i
	for i = len(p1) DOWNTO 1
		b = b & MID(p1,i,1)
	next
	return b
End Function
tasks a-s 2013-04-10 23:57:08 -07:00			`Function StrRev2(ByVal $p1)`
update 2013-06-05 21:47:54 +00:00			`dim $b = "", %i`
			`for i = len(p1) DOWNTO 1`
			`b = b & MID(p1,i,1)`
tasks a-s 2013-04-10 23:57:08 -07:00			`next`
			`return b`
			`End Function`