include "ConsoleWindow"

dim as Str31 str
dim as long  i

str = "123456789abcdefghijk"

print str
print

for i = str[0] to 1 step -1
print mid$( str, i, 1 );
next i