Copy a string: Difference between revisions
Content deleted Content added
add BQN |
Added solution for Action! |
||
Line 141:
<lang ABAP>DATA(string1) = |Test|.
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}}==
|