Lbl STRCPY
r₁→S
While {r₂}
 {r₂}→{r₁}
 r₁++
 r₂++
End
0→{r₁}
S
Return