seqfil = 'ahYXH'

//------------------------------
// Axes Assign and Bioref
//------------------------------
exists('axAssgn','parameter'):$e
if $e < 0.5 then
   create('axAssgn','flag')
endif 
setvalue('axAssgn','321')

exists('bioref','parameter'):$e
if $e < 0.5 then
   create('bioref','flag')
endif
setvalue('bioref','y') 


//------------------------------
// Spin Rate
//------------------------------

exists('srate','parameter'):$e
if $e < 0.5 then
   create('srate','frequency')
endif 

exists('hsrotor','parameter'):$e
if $e < 0.5 then
   create('hsrotor','flag') 
endif

//------------------------------
// Receiver Delays
//------------------------------

exists('rd','parameter'):$e
if $e < 0.5 then
   create('rd','pulse')
   setlimit('rd',8192,0,0.0125)  
endif 

exists('ad','parameter'):$e
if $e < 0.5 then
   create('ad','pulse')
   setlimit('ad',8192,0,0.0125)  
endif

exists('ddrtc','parameter'):$e
if $e < 0.5 then
   create('ddrtc','pulse')
   setlimit('ddrtc',8192,0,0.0125)  
endif

//------------------------------
// Basic Transmitter Properties
//------------------------------

exists('aX90','parameter'):$e
if $e < 0.5 then
   create('aX90','real')
   setlimit('aX90',4095,0,0)  
endif 

exists('aH90','parameter'):$e
if $e < 0.5 then
   create('aH90','real')
   setlimit('aH90',4095,0,0)  
endif 

exists('aY90','parameter'):$e
if $e < 0.5 then
   create('aY90','real')
   setlimit('aY90',4095,0,0)  
endif

exists('aZ90','parameter'):$e
if $e < 0.5 then
   create('aZ90','real')
   setlimit('aZ90',4095,0,0)  
endif

exists('pwX90','parameter'):$e
if $e < 0.5 then
   create('pwX90','pulse')
   setlimit('pwX90',8192,0,0.0125)
endif 

exists('pwH90','parameter'):$e
if $e < 0.5 then
   create('pwH90','pulse')
   setlimit('pwH90',8192,0,0.0125)
endif 

exists('pwY90','parameter'):$e
if $e < 0.5 then
   create('pwY90','pulse')
   setlimit('pwY90',8192,0,0.0125)
endif

exists('pwZ90','parameter'):$e
if $e < 0.5 then
   create('pwZ90','pulse')
   setlimit('pwZ90',8192,0,0.0125)
endif

//---------------
// cpHY elements
//---------------

exists('shHY','parameter'):$e
if $e < 0.5 then
    create('shHY','flag')
endif

exists('toHY','parameter'):$e
if $e < 0.5 then
   create('toHY','flag')
endif 
setvalue('toHY','dec2')

exists('frHY','parameter'):$e
if $e < 0.5 then
   create('frHY','flag')
endif
setvalue('frHY','obs')  

exists('chHY','parameter'):$e
if $e < 0.5 then
   create('chHY','flag')
endif 

exists('aHhy','parameter'):$e
if $e < 0.5 then
   create('aHhy','real')
   setlimit('aHhy',4095,0,0)
endif 

exists('aYhy','parameter'):$e
if $e < 0.5 then
   create('aYhy','real')
   setlimit('aYhy',4095,0,0)
endif 

exists('bHY','parameter'):$e
if $e < 0.5 then
   create('bHY','real')
   setlimit('bHY',1000000,0,1.0e-6)
endif 

exists('dHY','parameter'):$e
if $e < 0.5 then
   create('dHY','real')
   setlimit('dHY',4095,-4095,1)
endif 

exists('tHY','parameter'):$e
if $e < 0.5 then
   create('tHY','pulse')
   setlimit('tHY',50000,0,0.0125)
endif

exists('ofHY','parameter'):$e
if $e < 0.5 then
    create('ofHY','frequency')
endif  

//---------------
// cpYX elements
//---------------

exists('shYX','parameter'):$e
if $e < 0.5 then
    create('shYX','flag')
endif

exists('toYX','parameter'):$e
if $e < 0.5 then
   create('toYX','flag')
endif 
setvalue('toYX','dec')

exists('frYX','parameter'):$e
if $e < 0.5 then
   create('frYX','flag')
endif
setvalue('frYX','dec2')  

exists('chYX','parameter'):$e
if $e < 0.5 then
   create('chYX','flag')
endif 

exists('aXyx','parameter'):$e
if $e < 0.5 then
   create('aXyx','real')
   setlimit('aXyx',4095,0,0)
endif 

exists('aYyx','parameter'):$e
if $e < 0.5 then
   create('aYyx','real')
   setlimit('aYyx',4095,0,0)
endif 

exists('aHyx','parameter'):$e
if $e < 0.5 then
   create('aHyx','real')
   setlimit('aHyx',4095,0,0)
endif 

exists('bYX','parameter'):$e
if $e < 0.5 then
   create('bYX','real')
   setlimit('bYX',1000000,0,1.0e-6)
endif 

exists('dYX','parameter'):$e
if $e < 0.5 then
   create('dYX','real')
   setlimit('dYX',4095,-4095,1)
endif 

exists('tYX','parameter'):$e
if $e < 0.5 then
   create('tYX','pulse')
   setlimit('tYX',50000,0,0.0125)
endif

exists('ofYX','parameter'):$e
if $e < 0.5 then
    create('ofYX','frequency')
endif  
//=====================
// decoupling options
//======================

exists('Hseq','parameter'):$e
if $e < 0.5 then
    create('Hseq','flag')
endif

exists('Xseq','parameter'):$e
if $e < 0.5 then
    create('Xseq','flag')
endif

//-----------
// tppm
//-----------

exists('aHtppm','parameter'):$e
if $e < 0.5 then
    create('aHtppm','real')
    setlimit('aHtppm',4095,0,0)
endif

exists('pwHtppm','parameter'):$e
if $e < 0.5 then
    create('pwHtppm','pulse')
    setlimit('pwHtppm',8192,0,0.0125)
endif

exists('phHtppm','parameter'):$e
if $e < 0.5 then
    create('phHtppm','real')
    setlimit('phHtppm',180,-180,0.0)
endif

exists('chHtppm','parameter'):$e
if $e < 0.5 then
   create('chHtppm','flag')
endif 
setvalue('chHtppm','obs')

//------------------------------
//  H SPINAL2 
//------------------------------

exists('aHspinal2','parameter'):$e
if $e < 0.5 then
    create('aHspinal2','real')
    setlimit('aHspinal2',4095,0,0)
endif

exists('pwHspinal2','parameter'):$e
if $e < 0.5 then
    create('pwHspinal2','pulse')
    setlimit('pwHspinal2',8192,0,0.0125)
endif

exists('phHspinal2','parameter'):$e
if $e < 0.5 then
    create('phHspinal2','real')
    setlimit('phHspinal2',180,-180,0.0)
endif

exists('alpHspinal2','parameter'):$e
if $e < 0.5 then
    create('alpHspinal2','real')
    setlimit('alpHspinal2',180,-180,0.0)
endif

exists('chHspinal2','parameter'):$e
if $e < 0.5 then
   create('chHspinal2','flag')
endif 
setvalue('chHspinal2','obs')

//=====================================
// X SPINAL2, TPPM, or WALTZ ELEMENTS F2
//=====================================

exists('aXtppm','parameter'):$e
if $e < 0.5 then
    create('aXtppm','real')
    setlimit('aXtppm',4095,0,0)
endif

exists('pwXtppm','parameter'):$e
if $e < 0.5 then
    create('pwXtppm','pulse')
    setlimit('pwXtppm',8192,0,0.0125)
endif

exists('phXtppm','parameter'):$e
if $e < 0.5 then
    create('phXtppm','real')
    setlimit('phXtppm',180,-180,0.0)
endif

exists('chXtppm','parameter'):$e
if $e < 0.5 then
   create('chXtppm','flag')
endif 
setvalue('chXtppm','dec')

exists('aXspinal2','parameter'):$e
if $e < 0.5 then
    create('aXspinal2','real')
    setlimit('aXspinal2',4095,0,0)
endif

exists('pwXspinal2','parameter'):$e
if $e < 0.5 then
    create('pwXspinal2','pulse')
    setlimit('pwXspinal2',8192,0,0.0125)
endif

exists('phXspinal2','parameter'):$e
if $e < 0.5 then
    create('phXspinal2','real')
    setlimit('phXspinal2',180,-180,0.0)
endif

exists('alpXspinal2','parameter'):$e
if $e < 0.5 then
    create('alpXspinal2','real')
    setlimit('alpXspinal2',180,-180,0.0)
endif

exists('chXspinal2','parameter'):$e
if $e < 0.5 then
   create('chXspinal2','flag')
endif 
setvalue('chXspinal2','dec')

exists('aXwaltz','parameter'):$e
if $e < 0.5 then
    create('aXwaltz','real')
    setlimit('aXwaltz',4095,0,0)
endif

exists('pwXwaltz','parameter'):$e
if $e < 0.5 then
    create('pwXwaltz','pulse')
    setlimit('pwXwaltz',8192,0,0.0125)
endif

exists('chXwaltz','parameter'):$e
if $e < 0.5 then
   create('chXwaltz','flag')
endif 
setvalue('chXwaltz','dec')

//==========================
// Additional parameters
//==========================

exists('d2max','parameter'):$e
if $e < 0.5 then
   create('d2max','delay')
endif

exists('d3max','parameter'):$e
if $e < 0.5 then
   create('d3max','delay')
endif

exists('hst','parameter'):$e
if $e < 0.5 then
   create('hst','delay')
endif

exists('hstconst','parameter'):$e
if $e < 0.5 then
   create('hstconst','delay')
endif

exists('gzlvl1','parameter'):$e
if $e < 0.5 then
    create('gzlvl1','real')
    setlimit('gzlvl1',32767,-32767,1)
endif

//==================
// H RFDR ELEMENTS
//==================

exists('qHrfdr','parameter'):$e
if $e < 0.5 then
   create('qHrfdr','real')
   setlimit('qHrfdr',4096,0,1)
   qHrfdr = 1.0
endif 

exists('chHrfdr','parameter'):$e
if $e < 0.5 then
   create('chHrfdr','flag')
endif 
setvalue('chHrfdr','obs')

exists('ofHrfdr','parameter'):$e
if $e < 0.5 then
   create('ofHrfdr','frequency')
endif 

exists('aHrfdr','parameter'):$e
if $e < 0.5 then
   create('aHrfdr','real')
   setlimit('aHrfdr',4095,0,0)
endif 

exists('pwHrfdr','parameter'):$e
if $e < 0.5 then
   create('pwHrfdr','pulse')
   setlimit('pwHrfdr',8192,0,0.0125)
endif 

//==================
// H PRESAT XY ELEMENTS
//==================

exists('qHpxy','parameter'):$e
if $e < 0.5 then
   create('qHpxy','real')
   setlimit('qHpxy',64,0,1)
   qHpxy = 1.0
endif 

exists('chHpxy','parameter'):$e
if $e < 0.5 then
   create('chHpxy','flag')
endif 
setvalue('chHpxy','obs')

exists('ofHpxy','parameter'):$e
if $e < 0.5 then
   create('ofHpxy','frequency')
endif 

exists('aHpxy','parameter'):$e
if $e < 0.5 then
   create('aHpxy','real')
   setlimit('aHpxy',1000,0,1)
endif 

exists('pwHpxy','parameter'):$e
if $e < 0.5 then
   create('pwHpxy','pulse')
   setlimit('pwHpxy',100000,0,0.0125)
endif 

//================
// cpXH elements
//================

exists('shXH','parameter'):$e
if $e < 0.5 then
    create('shXH','flag')
endif

exists('toXH','parameter'):$e
if $e < 0.5 then
   create('toXH','flag')
endif 
setvalue('toXH','dec')

exists('frXH','parameter'):$e
if $e < 0.5 then
   create('frXH','flag')
endif
setvalue('frXH','obs')  

exists('chXH','parameter'):$e
if $e < 0.5 then
   create('chXH','flag')
endif 

exists('aHxh','parameter'):$e
if $e < 0.5 then
   create('aHxh','real')
   setlimit('aHxh',4095,0,0)
endif 

exists('aXxh','parameter'):$e
if $e < 0.5 then
   create('aXxh','real')
   setlimit('aXxh',4095,0,0)
endif 

exists('bXH','parameter'):$e
if $e < 0.5 then
   create('bXH','real')
   setlimit('bXH',1000000,0,1.0e-6)
endif 

exists('dXH','parameter'):$e
if $e < 0.5 then
   create('dXH','real')
   setlimit('dXH',4095,-4095,1)
endif 

exists('tXH','parameter'):$e
if $e < 0.5 then
   create('tXH','pulse')
   setlimit('tXH',50000,0,0.0125)
endif

exists('ofXH','parameter'):$e
if $e < 0.5 then
    create('ofXH','frequency')
endif  

//-------------------------------------------------
// H Hahn Echo
//-------------------------------------------------

exists('tHecho','parameter'):$e
if $e < 0.5 then
   create('tHecho','pulse')
   setlimit('tHecho',50000,0,0.0125)
endif

//------------------------------------------------
//  Set Bit 14 for new parameters of the .par file 
//------------------------------------------------

$params = 'frHY toHY chXspinal2 chXtppm chHspinal2 chHtppm chHrfdr chHpxy '
$params = $params + 'frXH toXH frYX toYX chXwaltz '
$params = $params + 'aXtppm pwXtppm phXtppm aXspinal2 pwXspinal2 phXspinal2 alpXspinal2 Xseq '
$params = $params + 'aXwaltz pwXwaltz aHspinal2 pwHspinal2 phHspinal2 alpHspinal2 '
$params = $params + 'hst hstconst gzlvl1 d2max d3max '
$params = $params + 'qHrfdr ofHrfdr aHrfdr pwHrfdr '
$params = $params + 'qHpxy ofHpxy aHpxy pwHpxy '
$params = $params + 'shXH chXH aHxh aXxh bXH dXH tXH ofXH '
$params = $params + 'shHY chHY aHhy aYhy bHY dHY tHY ofHY '
$params = $params + 'shYX chYX aYyx aXyx aHyx bYX dYX tYX ofYX '
$params = $params + 'tHecho'
setprotect('','clear',16384)
setprotect($params,'on',16384)

//--------------------------------------------------------
//  Clear parameters in 'clearparams' in the apptype macro
//--------------------------------------------------------

exists('clearparams','parameter'):$e
if $e < 0.5 then
   create('clearparams','string')
endif
setprotect('clearparams','on',16384)
$clearparams = 'frHY toHY chXspinal2 chXtppm chHspinal2 chHtppm chHrfdr chHpxy '
$clearparams = $clearparams + 'frXH toXH frYX toYX chXwaltz'
setvalue('clearparams',$clearparams)

//------------------------------------------------
//  Set the parameter templates
//------------------------------------------------

setprotect('dg','clear',4)
$dg = '1:ACQUISITION:sw:1,at:6,np:0,d1:6,nt:0,ct:0,bs:0,'
$dg = $dg + 'ss:0,rd:1,ad:1,ddrtc:1,rof3(rof3):1,gain:0,temp:0,srate:1;'
$dg = $dg + '1:cpHY:shHY,chHY,aHhy:0,aYhy:0,bHY:6,dHY:6,tHY:1,ofHY:3;'
$dg = $dg + '2:cpYX:shYX,chYX,aYyx:0,aXyx:0,aHyx:0,bYX:6,dYX:6,tYX:1,ofYX:3;'
$dg = $dg + '2:cpXH:shXH,chXH,aHxh:0,aXxh:0,bXH:6,dXH:6,tXH:1,ofXH:3;'
$dg = $dg + '2:MIX:hst:6,hstconst:6,gzlvl:1;'
$dg = $dg + '2(Hseq=\'tppm\'):TPPM:aHtppm:0,pwHtppm:1,phHtppm:2;'
$dg = $dg + '2(Hseq=\'spinal2\'):SPINAL2:aHspinal2:0,pwHspinal2:1,phHspinal2:2,alpHspinal2:2;'
$dg = $dg + '2(Xseq=\'tppm\'):TPPM:aXtppm:0,pwXtppm:1,phXtppm:2;'
$dg = $dg + '2(Xseq=\'spinal2\'):SPINAL2:aXspinal2:0,pwXspinal2:1,phXspinal2:2,alpXspinal2:2;'
$dg = $dg + '2(Xseq=\'waltz\'):WALTZ:aXwaltz:0,pwXwaltz:1;'
$dg = $dg + '3:rfdrH:aHrfdr:0,pwHrfdr:1,qHrfdr:0,ofHrfdr:1;'
$dg = $dg + '4:pxyH:aHpxy:0,pwHpxy:1,qHpxy:0,ofHpxy:1;'
$dg = $dg + '3:echo:tHecho:1;'
dg = $dg
setprotect('dg','on',4)

setprotect('dg2','clear',4)
$dg2 = '1:OBSERVE:tn,sfrq:6,tof:1,tpwr:0,aX90:0,pwX90:1;'
$dg2=$dg2+'2:DECOUPLE:dn,dfrq:6,dof:1,dpwr:0,aH90:0,pwH90:1;'
$dg2=$dg2+'3:DECOUPLE2:dn2,dfrq2:6,dof2:1,dpwr2:0,aY90:0,pwY90:1;'
$dg2=$dg2+'4:DECOUPLE3:dn3,dfrq3:6,dof3:1,dpwr3:0,aZ90:0,pwZ90:1;'
dg2 = $dg2
setprotect('dg2','on',4)

setprotect('ap','clear',4)
$ap = '1:SAMPLE:date,temp:1,srate:1,file;'
$ap = $ap + '1:ACQUISITION:tn,sfrq:6,tof:1,tpwr:0,sw:1,at:6,np:0,d1:6,nt:0,ct:0,ss:0,rd:1,ad:1,aX90:0,pwX90:1;'
$ap = $ap + '1(ni):2D ACQUISITION:d2:6,sw1:1,ni:0,phase:0;'
$ap = $ap + '1:DECOUPLE:dn,dfrq:6,dof:1,dpwr:0,aH90:0,pwH90:1;'
$ap = $ap + '1(dfrq2>0):DECOUPLE2:dn2,dfrq2:6,dof2:1,dpwr2:0,aY90:0,pwY90:1;'
$ap = $ap + '1(dfrq3>0):DECOUPLE3:dn3,dfrq3:6,dof3:1,dpwr3:0,aZ90:0,pwZ90:1;'
$ap = $ap + '1:cpHY:shHY,chHY,aHhy:0,aYhy:0,bHY:6,dHY:6,tHY:1,ofHY:3;'
$ap = $ap + '1:cpYX:shYX,chYX,aYyx:0,aXyx:0,bYX:6,dYX:6,tYX:1,ofYX:3;'
$ap = $ap + '1:cpXH:shXH,chXH,aHxh:0,aXxh:0,bXH:6,dXH:6,tXH:1,ofXH:3;'
$ap = $ap + '1:tconst:6,CT:6,mix:6,hst:6,hstconst:6;'
$ap = $ap + '1(Hseq=\'tppm\'):TPPM:aHtppm:0,pwHtppm:1,phHtppm:2;'
$ap = $ap + '1(Hseq=\'spinal2\'):SPINAL2:aHspinal2:0,pwHspinal2:1,phHspinal2:2,alpHspinal2:2;'
$ap = $ap + '2(Xseq=\'tppm\'):TPPM:aXtppm:0,pwXtppm:1,phXtppm:2;'
$ap = $ap + '2(Xseq=\'spinal2\'):SPINAL2:aXspinal2:0,pwXspinal2:1,phXspinal2:2,alpXspinal2:2;'
$ap = $ap + '2(Xseq=\'waltz\'):WALTZ:aXwaltz:0,pwXwaltz:1;'
$ap = $ap + '2:rfdrH:aHrfdr:0,pwHrfdr:1,qHrfdr:0,ofHrfdr:1;'
$ap = $ap + '2:pxyH:aHpxy:0,pwHpxy:1,qHpxy:0,ofHpxy:1;'
$ap = $ap + '2:echo:tHecho:1;'
ap = $ap
setvalue('ap',$ap,'processed')
setprotect('ap','on',4)
