18 lines
208 B
Text
18 lines
208 B
Text
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
|