... for m = lenght to 2 lenght Step -2 a$ = mid(shifrslovo$, m, 1) iskomoeslovo$=iskomoeslovo$+a$ next