13 lines
200 B
Text
13 lines
200 B
Text
|
PROC main:
|
||
|
|
LOCAL str$(12),i%
|
||
|
|
str$="Rosetta Code"
|
||
|
|
PRINT "Original string:",str$
|
||
|
|
PRINT "Reversed string:",
|
||
|
|
i%=LEN(str$)
|
||
|
|
WHILE i%<>0
|
||
|
|
PRINT MID$(str$,i%,1);
|
||
|
|
i%=i%-1
|
||
|
|
ENDWH
|
||
|
|
GET
|
||
|
|
ENDP
|