This is simple code to reverse a string of text

Not much more to say...

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `This code may be freely used by anyone
input "Text to be reversed? ";text$
reversetext$=""

for i = 1 to len(text$)
reversetext$ = reversetext$ + mid$(text$,len(text$) + 1 - i)
next i
print "The reverse of ";text$;" is "; reversetext$
suspend for key