RosettaCodeData/Task/Reverse-a-string/BASIC256/reverse-a-string.basic

s = "asdf"
print "'"; s; "' reversed is '"; reverse(s); "'"
end

function reverse(a)
	b = ""
	for i = 1 to length(a)
		b = mid(a, i, 1) + b
	next i
	return b
end function