NAME{Spectra_Definition(PAC/PAD)}
SIZE{500,160,5}
NEW_MENU{File}
MENU{save global.def}
   {
   f=lise:global.def
   pp1=$p1
   pp2=$p2
   pp3=$p3
   pp4=$p4
   pp5=$p5
   pp6=$p6
   pp7=$p7
   pp8=$p8
   l1=`strlen $pp1`
   l2=`strlen $pp2`
   l3=`strlen $pp3`
   l4=`strlen $pp4`
   l5=`strlen $pp5`
   l6=`strlen $pp6`
   l7=`strlen $pp7`
   l8=`strlen $pp8`
   if [ $l1 != 0 ] then ; echo  "$p1 $e1 $x1 $c1" >$f ; fi
   if [ $l2 != 0 ] then ; echo  "$p2 $e2 $x2 $c2" >>$f ; fi
   if [ $l3 != 0 ] then ; echo  "$p3 $e3 $x3 $c3" >>$f ; fi
   if [ $l4 != 0 ] then ; echo  "$p4 $e4 $x4 $c4" >>$f ; fi
   if [ $l5 != 0 ] then ; echo  "$p5 $e5 $x5 $c5" >>$f ; fi
   if [ $l6 != 0 ] then ; echo  "$p6 $e6 $x6 $c6" >>$f ; fi
   if [ $l7 != 0 ] then ; echo  "$p7 $e7 $x7 $c7" >>$f ; fi
   if [ $l8 != 0 ] then ; echo  "$p8 $e8 $x8 $c8" >>$f ; fi
   }
MENU{load global.def}
   {
   f=lise:global.def
   n=1
   while [ $n -le 8 ]
      do
      l=`getline $f $n`
      p=`param 1 $l`
      e=`param 2 $l`
      x=`param 3 $l`
      c=`param 4 $l`
      if [ $p != EOF ]
         then
         echo "SET p$n $p"
         echo "SET e$n $e"
         echo "SET x$n $x"
         echo "SET c$n $c"
      fi
      n=`expr $n + 1`
   done
   }
MENU{load old definition}
   {
   f=$FILESELECT
   n=1
   while [ $n -le 8 ]
      do
      l=`getline $f $n`
      p=`param 1 $l`
      e=`param 2 $l`
      x=`param 3 $l`
      c=`param 4 $l`
      if [ $p != EOF ]
         then
         echo "SET p$n $p"
         echo "SET e$n $e"
         echo "SET x$n $x"
         echo "SET c$n $c"
      fi
      n=`expr $n + 1`
   done
   }
MENU{exit}
   {
   rm >nil: t:curv t:param
   echo "EXIT"
   }
NEW_MENU{Tek_Window}
MENU{Cursor to 4 Peaks}
   {
   x=`cur -x`
   echo "SET p1 $x"
   x=`cur -x`
   echo "SET p2 $x"
   x=`cur -x`
   echo "SET p3 $x"
   x=`cur -x`
   echo "SET p4 $x"
   }
MENU{Cursor to 8 Peaks}
   {
   x=`cur -x`
   echo "SET p1 $x"
   x=`cur -x`
   echo "SET p2 $x"
   x=`cur -x`
   echo "SET p3 $x"
   x=`cur -x`
   echo "SET p4 $x"
   x=`cur -x`
   echo "SET p5 $x"
   x=`cur -x`
   echo "SET p6 $x"
   x=`cur -x`
   echo "SET p7 $x"
   x=`cur -x`
   echo "SET p8 $x"
   }
MENU{Cursor to Peak 1}
   {
   x=`cur -x`
   echo "SET p1 $x"
   }
MENU{Cursor to Peak 2}
   {
   x=`cur -x`
   echo "SET p2 $x"
   }
MENU{Cursor to Peak 3}
   {
   x=`cur -x`
   echo "SET p3 $x"
   }
MENU{Cursor to Peak 4}
   {
   x=`cur -x`
   echo "SET p4 $x"
   }
MENU{Cursor to Peak 5}
   {
   x=`cur -x`
   echo "SET p5 $x"
   }
MENU{Cursor to Peak 6}
   {
   x=`cur -x`
   echo "SET p6 $x"
   }
MENU{Cursor to Peak 7}
   {
   x=`cur -x`
   echo "SET p7 $x"
   }
MENU{Cursor to Peak 8}
   {
   x=`cur -x`
   echo "SET p8 $x"
   }
NEW_MENU{MCAah}
MENU{Find Next Peak}
   {
   rexxsend "MCAah" "NEXTPEAK"
   }
MENU{Automatic 4}
   {
   n=1
   rexxsend "MCAah" "MARKER 10"
   sleep 1
   while [ $n -le 4 ]
      do
      rexxsend "MCAah" "NEXTPEAK"
      sleep 5
      rexxsend "MCAah" "READMARKERPOS"
      sleep 1
      x=`cat env:RESULT`
      echo "SET p$n $x"
      n=`expr $n + 1`
   done
   }
MENU{Automatic 8}
   {
   n=1
   rexxsend "MCAah" "MARKER 10"
   sleep 1
   while [ $n -le 8 ]
      do
      rexxsend "MCAah" "NEXTPEAK"
      sleep 5
      rexxsend "MCAah" "READMARKERPOS"
      sleep 1
      x=`cat env:RESULT`
      echo "SET p$n $x"
      n=`expr $n + 1`
   done
   }
MENU{Copy 4 for "Dach"}
   {
   pp1=$p1
   pp2=$p2
   pp3=$p3
   pp4=$p4
   echo "SET p1 $pp1"
   echo "SET p2 $pp1"
   echo "SET p3 $pp2"
   echo "SET p4 $pp2"
   echo "SET p5 $pp3"
   echo "SET p6 $pp3"
   echo "SET p7 $pp4"
   echo "SET p8 $pp4"
   }
MENU{Marker to Peak 1}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p1 $x"
   }
MENU{Marker to Peak 2}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p2 $x"
   }
MENU{Marker to Peak 3}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p3 $x"
   }
MENU{Marker to Peak 4}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p4 $x"
   }
MENU{Marker to Peak 5}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p5 $x"
   }
MENU{Marker to Peak 6}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p6 $x"
   }
MENU{Marker to Peak 7}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p7 $x"
   }
MENU{Marker to Peak 8}
   {
   rexxsend "MCAah" "READMARKERPOS"
   x=`cat env:RESULT`
   echo "SET p8 $x"
   }
PUSH{10,20,peak pos.}
   {
   echo "These fields must contain the Prompt peak positions"
   echo "use the MENU ENTRIES to read the peakpositions"
   echo "from the MCAah or from the actual Analysis Tek"
   }
PUSH{130,20,orientation}
   {
   echo "set to negative when spectrum must be mirrored"
   echo "1 for 90 Degree spectra"
   echo "2 for 180 Degree spectra"
   echo "0 for background (ignored)"
   }
PUSH{250,20,first chan}
   {
   x=$x1
   n=2
   while [ $n -le 8 ]
      do
      echo "SET x$n $x"
      n=`expr $n + 1`
   done
   }
PUSH{370,20,last chan}
   {
   x=$c1
   n=2
   while [ $n -le 8 ]
      do
      echo "SET c$n $x"
      n=`expr $n + 1`
   done
   }
STRING_BOX{10,35, }{p1}{echo >nil:}
STRING_BOX{130,35, }{e1}{echo >nil:}
STRING_BOX{250,35, }{x1}{echo >nil:}
STRING_BOX{370,35, }{c1}{echo >nil:}
STRING_BOX{10,50, }{p2}{echo >nil:}
STRING_BOX{130,50, }{e2}{echo >nil:}
STRING_BOX{250,50, }{x2}{echo >nil:}
STRING_BOX{370,50, }{c2}{echo >nil:}
STRING_BOX{10,65, }{p3}{echo >nil:}
STRING_BOX{130,65, }{e3}{echo >nil:}
STRING_BOX{250,65, }{x3}{echo >nil:}
STRING_BOX{370,65, }{c3}{echo >nil:}
STRING_BOX{10,80, }{p4}{echo >nil:}
STRING_BOX{130,80, }{e4}{echo >nil:}
STRING_BOX{250,80, }{x4}{echo >nil:}
STRING_BOX{370,80, }{c4}{echo >nil:}
STRING_BOX{10,95, }{p5}{echo >nil:}
STRING_BOX{130,95, }{e5}{echo >nil:}
STRING_BOX{250,95, }{x5}{echo >nil:}
STRING_BOX{370,95, }{c5}{echo >nil:}
STRING_BOX{10,110, }{p6}{echo >nil:}
STRING_BOX{130,110, }{e6}{echo >nil:}
STRING_BOX{250,110, }{x6}{echo >nil:}
STRING_BOX{370,110, }{c6}{echo >nil:}
STRING_BOX{10,125, }{p7}{echo >nil:}
STRING_BOX{130,125, }{e7}{echo >nil:}
STRING_BOX{250,125, }{x7}{echo >nil:}
STRING_BOX{370,125, }{c7}{echo >nil:}
STRING_BOX{10,140, }{p8}{echo >nil:}
STRING_BOX{130,140, }{e8}{echo >nil:}
STRING_BOX{250,140, }{x8}{echo >nil:}
STRING_BOX{370,140, }{c8}{echo >nil:}
STARTUP{
   f=lise:global.def
   n=1
   while [ $n -le 8 ]
      do
      l=`getline $f $n`
      p=`param 1 $l`
      e=`param 2 $l`
      x=`param 3 $l`
      c=`param 4 $l`
      if [ $p != EOF ]
         then
         echo "SET p$n $p"
         echo "SET e$n $e"
         echo "SET x$n $x"
         echo "SET c$n $c"
      fi
      n=`expr $n + 1`
   done
   }