Download this file
1 2 3 4 5 6 7 8
METHOD Rotate VAR tmp : BYTE; tmp := str[93]; SysMem.SysMemMove(ADR(str) + 1, ADR(str), SIZEOF(str) - 2); str[0] := tmp;