12 lines
200 B
Text
12 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
|