15 lines
281 B
Text
15 lines
281 B
Text
a = 1.23 : b = 4.56
|
|
PROCswap(^a,^b, 5)
|
|
PRINT a,b
|
|
|
|
a$ = "Hello " : b$ = "world!"
|
|
PROCswap(^a$,^b$, 6)
|
|
PRINT a$,b$
|
|
END
|
|
|
|
DEF PROCswap(a%, b%, s%)
|
|
LOCAL i%
|
|
FOR i% = 0 TO s%-1
|
|
SWAP a%?i%,b%?i%
|
|
NEXT
|
|
ENDPROC
|