RosettaCodeData/Task/Copy-a-string/Axe/copy-a-string.axe

11 lines
90 B
Plaintext

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