Generic swap: Difference between revisions

Content added Content deleted
(Added Chipmunk Basic, GW-BASIC, MSX Basic and XBasic)
(Added Quite BASIC and Minimal BASIC)
Line 617: Line 617:
150 CALL SWAP(A,B)
150 CALL SWAP(A,B)
160 PRINT A,B</syntaxhighlight>
160 PRINT A,B</syntaxhighlight>

==={{header|Minimal BASIC}}===
{{works with|QBasic}}
{{works with|QuickBasic}}
{{works with|Applesoft BASIC}}
{{works with|BASICA}}
{{works with|Chipmunk Basic}}
{{works with|GW-BASIC}}
{{works with|MSX Basic}}
{{works with|Just BASIC}}
{{works with|Liberty BASIC}}
{{works with|Run BASIC}}
<syntaxhighlight lang="qbasic">10 LET A = 1
20 LET B = 2
30 PRINT " A=";A;" B=";B
40 LET T = A
50 LET A = B
60 LET B = T
70 PRINT " A=";A;" B=";B
80 END</syntaxhighlight>


==={{header|MSX Basic}}===
==={{header|MSX Basic}}===
Line 657: Line 677:
CALL nswap(a, b)
CALL nswap(a, b)
PRINT a, b</syntaxhighlight>
PRINT a, b</syntaxhighlight>

==={{header|Quite BASIC}}===
The [[#Minimal _BASIC|Minimal BASIC]] solution works without any changes.


==={{header|Run BASIC}}===
==={{header|Run BASIC}}===