If you want to use the nib{} command to avoid the unoptimized division and multiplications, you could do it like:
GetCalc(Str01)→V
For(A,0,175)
{L1+A}→nib{V*2+A}
End
And to decode, its as simple as reversing the store:
GetCalc(Str01)→V
For(A,0,175)
nib{V*2+A}→{L1+A}
End