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