Generic swap: Difference between revisions
Added Chipmunk Basic, GW-BASIC, MSX Basic and XBasic
(Dialects of BASIC moved to the BASIC section.) |
(Added Chipmunk Basic, GW-BASIC, MSX Basic and XBasic) |
||
Line 495:
world! Hello
</pre>
==={{header|Chipmunk Basic}}===
The [[#GW-BASIC|GW-BASIC]] solution works without any changes.
==={{header|FreeBASIC}}===
Line 589 ⟶ 592:
1 World
</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}}===
Line 599 ⟶ 618:
160 PRINT A,B</syntaxhighlight>
==={{header|
The [[#GW-BASIC|GW-BASIC]] solution works without any changes.
==={{header|OxygenBasic}}===
<syntaxhighlight lang="text">
macro Swap(a,b, c)
Line 744 ⟶ 765:
<syntaxhighlight lang="vbnet">Dim a = 1, b = 2
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}}===
| |||