"Pic0" is actually 3 bytes long (not including the terminating 0).
Since the first two bytes are always the same, you could do:
1 2 3 4 5 6
| "Pic0Pic1Pic2Pic3Pic4Pic5Pic6Pic7Pic8Pic9"→Z "Pic1"→I GetCalc("varP")→Q float{Q}→P {P*3+Z+2}→{I+2}
|
But an even better method would be:
1 2 3 4 5
| "Pic1"→I GetCalc("varP")→Q float{Q}→P (P?-1,9)→{I+2} .Pic1-Pic9 is 0-8, and Pic0 is 9.
|
Edit: Not enough parentheses. Also, that's subtract 1, not negative 1.