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