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