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}}=== |