11 lines
90 B
Text
11 lines
90 B
Text
|
Lbl STRCPY
|
||
|
|
r₁→S
|
||
|
|
While {r₂}
|
||
|
|
{r₂}→{r₁}
|
||
|
|
r₁++
|
||
|
|
r₂++
|
||
|
|
End
|
||
|
|
0→{r₁}
|
||
|
|
S
|
||
|
|
Return
|