11 lines
211 B
Text
11 lines
211 B
Text
input$ ="abcdefgABCDEFG012345"
|
|
print input$
|
|
print ReversedStr$( input$)
|
|
|
|
end
|
|
|
|
function ReversedStr$(in$)
|
|
for i =len(in$) to 1 step -1
|
|
ReversedStr$ =ReversedStr$ +mid$( in$, i, 1)
|
|
next i
|
|
end function
|