RosettaCodeData/Task/Reverse-a-string/FutureBasic/reverse-a-string.futurebasic

14 lines
165 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
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