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