Reverse a string: Difference between revisions

Content added Content deleted

Inline

@@ Line 436: / Line 436: @@
 end
-function ReversedStr$( in$)
+function ReversedStr$(in$)
-size =len( in$)
+    for i =len(in$) to 1 step -1
+    ReversedStr$ =ReversedStr$ +mid$( in$, i, 1)
-o$ =""
+    next i
-for i =size to l step -1
-    o$ =o$ +mid$( in$, i, 1)
-next i
-ReversedStr$ =o$
 end function</lang>