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

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

sub reverse$(a$)
	b$ = ""
	for i = 1 to len(a$)
		b$ = mid$(a$, i, 1) + b$
	next i
	return b$
end sub