DISPLAY '<<< executing script file = '//STRING(?0)
@extrema.init

infile = `TRIM.DAT'
infile = STRING(?1)

read infile\11 eev\3
emev = eev/1000000.

@kke_to_p muon emev

generate xp 26.025 0.05 32.
bin kmomentum xp yp

clear

scale 26 32 6 0 10 2
set autoscale y

set xlabel `Momentum (MeV/c)'
set ylabel `Counts'
graph xp yp

set textinteractive 0
get %xloweraxis xl
get %yupperaxis yu
set %xtextlocation xl
set %ytextlocation yu+1
set %textheight 2
text infile