load=1r4o
define set1 (*.O?' and dna)
define set2 (*.OP? and dna)
define set3 (*.N? and dna)

select all
cpk 0
restrict dna
pause

select all
cpk 0
select set1
cpk 50
pause

select set1
cpk 0
select set2
cpk 50
pause

select set2
cpk 0
select set3
cpk 50
pause