Function SwapDynamicStringArray(b1,p1,p2)
	Local s
	s=PeekInt(b1,(p1 Shl 2))
	PokeInt b1,(p1 Shl 2),PeekInt(b1,(p2 Shl 2))
	PokeInt b1,(p2 Shl 2),s
End Function