RosettaCodeData/Task/Copy-a-string/Axe/copy-a-string.axe
2023-07-01 13:44:08 -04:00

10 lines
90 B
Text

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