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;