Generic swap: Difference between revisions
Added Quite BASIC and Minimal BASIC
(Added Chipmunk Basic, GW-BASIC, MSX Basic and XBasic) |
(Added Quite BASIC and Minimal BASIC) |
||
Line 617:
150 CALL SWAP(A,B)
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}}===
Line 657 ⟶ 677:
CALL nswap(a, b)
PRINT a, b</syntaxhighlight>
==={{header|Quite BASIC}}===
The [[#Minimal _BASIC|Minimal BASIC]] solution works without any changes.
==={{header|Run BASIC}}===
| |||