7 lines
135 B
Text
7 lines
135 B
Text
100 DEF SWAP(REF A,REF B)
|
|
110 LET T=A:LET A=B:LET B=T
|
|
120 END DEF
|
|
130 LET A=1:LET B=2
|
|
140 PRINT A,B
|
|
150 CALL SWAP(A,B)
|
|
160 PRINT A,B
|