nt/crea 1 Test 5 ' ' 1000 tcp ttag cth1 cth2 tag
nt/read 1 a1pi.dat
zone 2 2 
hi/create/1d 101 'B0 -> a1+ pi-' 100 -5.0 5.0
hi/create/1d 102 'B0B -> a1+ pi-' 100 -5.0 5.0
nt/proj 101 1.tcp-ttag abs(tag-511.0)<0.5
nt/proj 102 1.tcp-ttag abs(tag+511.0)<0.5
hi/pl 101
hi/pl 102
hi/create/1d 103 'cth1' 100 -1.0 1.0
hi/create/1d 104 'cth2' 100 -1.0 1.0
nt/proj 103 1.cth1
nt/proj 104 1.cth2
hi/pl 103
hi/pl 104