Generic swap: Difference between revisions
Content added Content deleted
(Dialects of BASIC moved to the BASIC section.) |
(Added Chipmunk Basic, GW-BASIC, MSX Basic and XBasic) |
||
Line 495: | Line 495: | ||
world! Hello |
world! Hello |
||
</pre> |
</pre> |
||
==={{header|Chipmunk Basic}}=== |
|||
The [[#GW-BASIC|GW-BASIC]] solution works without any changes. |
|||
==={{header|FreeBASIC}}=== |
==={{header|FreeBASIC}}=== |
||
Line 589: | Line 592: | ||
1 World |
1 World |
||
</pre> |
</pre> |
||
==={{header|GW-BASIC}}=== |
|||
{{works with|Applesoft BASIC}} |
|||
{{works with|Chipmunk Basic}} |
|||
{{works with|MSX_BASIC}} |
|||
{{works with|PC-BASIC|any}} |
|||
{{works with|QBasic}} |
|||
<syntaxhighlight lang="qbasic">10 CLS : REM 10 HOME for Applesoft BASIC |
|||
20 A = 1 : B = 2 |
|||
30 PRINT " A=";A," B=";B |
|||
40 T = A : A = B : B = T |
|||
50 PRINT " A=";A," B=";B |
|||
60 END</syntaxhighlight> |
|||
{{out}} |
|||
<pre> A=1 B=2 |
|||
A=2 B=1</pre> |
|||
==={{header|IS-BASIC}}=== |
==={{header|IS-BASIC}}=== |
||
Line 599: | Line 618: | ||
160 PRINT A,B</syntaxhighlight> |
160 PRINT A,B</syntaxhighlight> |
||
==={{header| |
==={{header|MSX Basic}}=== |
||
The [[#GW-BASIC|GW-BASIC]] solution works without any changes. |
|||
==={{header|OxygenBasic}}=== |
|||
<syntaxhighlight lang="text"> |
<syntaxhighlight lang="text"> |
||
macro Swap(a,b, c) |
macro Swap(a,b, c) |
||
Line 744: | Line 765: | ||
<syntaxhighlight lang="vbnet">Dim a = 1, b = 2 |
<syntaxhighlight lang="vbnet">Dim a = 1, b = 2 |
||
Swap(a, b)</syntaxhighlight> |
Swap(a, b)</syntaxhighlight> |
||
==={{header|XBasic}}=== |
|||
{{works with|Windows XBasic}} |
|||
XBasic already has a generic swap procedure built in, but a new subroutine can be defined: |
|||
<syntaxhighlight lang="qbasic"> |
|||
PROGRAM "nswap" |
|||
VERSION "0.0000" |
|||
DECLARE FUNCTION Entry () |
|||
FUNCTION Entry () |
|||
a = 1 |
|||
b = 2 |
|||
PRINT a, b |
|||
GOSUB nswap |
|||
PRINT a, b |
|||
SUB nswap |
|||
temp = a: a = b: b = temp |
|||
END SUB |
|||
END FUNCTION |
|||
END PROGRAM</syntaxhighlight> |
|||
==={{header|Yabasic}}=== |
==={{header|Yabasic}}=== |