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