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