Copy a string: Difference between revisions
Content deleted Content added
PascalABC.NET |
Added S-BASIC example |
||
| (9 intermediate revisions by 3 users not shown) | |||
Line 575:
src$ = " world..."
PRINT dst$; src$</syntaxhighlight>
==={{header|SmallBASIC}}===
<syntaxhighlight lang="qbasic">
src = "Hello"
dst = src
src = " world..."
PRINT dst; src
</syntaxhighlight>
==={{header|True BASIC}}===
Line 999 ⟶ 1,008:
t → "abc"
(eq? s t) → #t ;; same reference, same object
</syntaxhighlight>
=={{header|Ed}}==
Copies the current buffer contents in its entirety.
<syntaxhighlight>
,t
</syntaxhighlight>
Line 2,361 ⟶ 2,378:
end;
end;</syntaxhighlight>
=={{header|S-BASIC}}==
Creating a copy of a string requires only a simple assignment. The effect of a reference can be obtained by declaring a base-located string and positioning it at run-time on top of the original string, the address of which can be obtained using the LOCATION statement Since they occupy the same memory, any change to the original string will be reflected in the base-located string and vice-versa.
<syntaxhighlight lang = "BASIC">
var original, copy = string
based referenced = string
var strloc = integer
rem - position referenced string on top of original string
location var strloc = original
base referenced at strloc
original = "Hello, World"
copy = original
print "Original : ", original
print "Copy : ", copy
print "Referenced: ", referenced
print
original = "Goodbye, World"
print "Original : ", original rem - changed
print "Copy : ", copy rem - unchanged
print "Referenced: ", referenced rem - changed
end
</syntaxhighlight>
{{out}}
<pre>
Original : Hello, World
Copy : Hello, World
Referenced: Hello, World
Original : Goodbye, World
Copy : Hello, World
Referenced: Goodbye, World
</pre>
=={{header|Scala}}==
| |||