macro zoo is=0 ie=0 il=0 option=''

zone 2 5

if ([is] < 10) then
  is=0//[is]
endif

close 21; hi/file 21 kbeam.before_trim/kbeam.before_trim_sec[is].hbk
close 22; hi/file 22 kbeam.after_trim/kbeam.after_trim_sec[is].hbk
close 23; hi/file 23 km21.41617/km21.41617_sec[is].hbk
close 24; hi/file 24 km21.41671/km21.41671_sec[is].hbk

hoff = 100000*[ie] + 1000*[il] + 10*[is]	| hisotgram ofset

hid = [hoff]+1; hi/pl //lun21/[hid] [option]
		hi/pl //lun22/[hid] [option]
hid = [hoff]+3; hi/pl //lun21/[hid] [option]
		hi/pl //lun22/[hid] [option]
hid = [hoff]+4; hi/pl //lun21/[hid] [option]
		hi/pl //lun22/[hid] [option]
hid = [hoff]+7; hi/pl //lun23/[hid] [option]
		hi/pl //lun24/[hid] [option]
                hi/pl //lun23/[hid](-370.:-320.) [option]
                hi/pl //lun24/[hid](-370.:-320.) [option]