mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Generic-swap/QBasic/generic-swap.basic

11 lines
108 B
Plaintext
Raw Permalink Blame History

SUB nswap (a, b)
temp = a: a = b: b = temp
END SUB
a = 1
b = 2
PRINT a, b
CALL nswap(a, b)
PRINT a, b
Reference in New Issue View Git Blame Copy Permalink