Ask and you shall receive
Str1
For(B,0,8
For(A,0,8
Ans+sub(Ans,9A+9-B,1
End
End
sub(Ans,82,81→Str2
Str1
For(B,0,8
For(A,0,8
Ans+sub(Ans,73+B-9A,1
End
End
sub(Ans,82,81→Str2
Str1 holds the original string to be rotated and then
Str2 gets the new rotated string. I'm not sure if they can be optimized anymore, but I don't believe so.
Also, if you didn't figure it out. One rotates one way and the other rotates the other.