Copy a string: Difference between revisions
Content added Content deleted
(add BQN) |
(Added solution for Action!) |
||
Line 141: | Line 141: | ||
<lang ABAP>DATA(string1) = |Test|. |
<lang ABAP>DATA(string1) = |Test|. |
||
DATA(string2) = string1.</lang> |
DATA(string2) = string1.</lang> |
||
=={{header|Action!}}== |
|||
<lang Action!>PROC Main() |
|||
CHAR ARRAY str1,str2,str3(10) |
|||
str1="Atari" |
|||
str2=str1 |
|||
SCopy(str3,str1) |
|||
PrintF(" base=%S%E",str1) |
|||
PrintF("alias=%S%E",str2) |
|||
PrintF(" copy=%S%E",str3) |
|||
PutE() |
|||
SCopy(str1,"Action!") |
|||
PrintF(" base=%S%E",str1) |
|||
PrintF("alias=%S%E",str2) |
|||
PrintF(" copy=%S%E",str3) |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Copy_a_string.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
base=Atari |
|||
alias=Atari |
|||
copy=Atari |
|||
base=Action! |
|||
alias=Action! |
|||
copy=Atari |
|||
</pre> |
|||
=={{header|ActionScript}}== |
=={{header|ActionScript}}== |