>
>double space, double fast:
>

>For lnPos = 1 To m.lnLen*2 STEP 2
>	=Sys(2600, m.lnMemBlock2 + m.lnPos*1.5 , 2, Sys(2600, m.lnMemBlock1 + m.lnPos , 2))
>Endfor
>

Nice! Just one thing:

For lnPos = 0 To m.lnLen * 2 STEP 2
	=Sys(2600, m.lnMemBlock2 + m.lnPos * 1.5 , 2, Sys(2600, m.lnMemBlock1 + m.lnPos , 2))
Endfor

Otherwise you miss the first byte.