pset/p1/attribute zic/1,0,0/ eq 550.
pset/p2/attribute xic/1,0,0/ eq 300.
pset/pstay/ union p1 p2
cmo setatt motri pmass pset,get,pstay 1
pset/pmove/ not pstay
dump gmv tmp_pstay.gmv motri

pset/p1/delete
pset/p2/delete
pset/pstay/delete

finish