RosettaCodeData/Task/Copy-a-string/Axe/copy-a-string.axe
2016-12-05 23:44:36 +01:00

10 lines
90 B
Text

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