seqfil = 'hxidmissct2ds'

//------------------------------
// 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

//---------------
// cpHX elements
//---------------

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

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

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

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

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

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

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

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

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

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

//=====================
// decoupling options
//======================

exists('Hseq','parameter'):$e
if $e < 0.5 then
    create('Hseq','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','dec')

//------------------------------
//  spinal 
//------------------------------

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

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

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

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

//==============================
// H SPINAL or TPPM ELEMENTS F1
//==============================

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

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

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

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

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

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

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

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

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

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

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

exists('mix','parameter'):$e
if $e < 0.5 then
   create('mix','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

//==================
// 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',4095,0,0)
endif 

exists('pwHpxy','parameter'):$e
if $e < 0.5 then
   create('pwHpxy','pulse')
   setlimit('pwHpxy',8192,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  

//---------------------------------
// Extra Constant Time Parameters
//---------------------------------

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

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

//=====================
// X decoupling options
//======================

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

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

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')

//------------------------------
//  spinal 
//------------------------------

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

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

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

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

//------------------------------
//  waltz 
//------------------------------

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')

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

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

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

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

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

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

$params = 'frHX toHX chXtppm chXspinal chXwaltz chHspnlm chHrfdr chHpxy frXH toXH '
$params = $params + 'aXtppm pwXtppm phXtppm aXspinal pwXspinal phXspinal aXwaltz pwXwaltz Xseq ' 
$params = $params + 'qHspnlm nHspnlm ofHspnlm aHspnlm pwHspnlm ph1Hspnlm ph2Hspnlm '
$params = $params + 'aXtppm pwXtppm phXtppm aXspinal pwXspinal phXspinal aXwaltz pwXwaltz Xseq ' 
$params = $params + 'decmode decmodem aX90 pwX90 aH90 pwH90 tconst mix hst hstconst CT tmd2 '
$params = $params + 'qHrfdr ofHrfdr aHrfdr pwHrfdr '
$params = $params + 'qHpxy ofHpxy aHpxy pwHpxy '
$params = $params + 'shXH chXH aHxh aXxh bXH dXH tXH ofXH '
$params = $params + 'aHecho pwHecho t1Hecho t2Hecho'
setprotect('','clear',16384)
write('alpha','%s\n',$params)
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 = 'frHX toHX chXtppm chXspinal chXwaltz chHspnlm chHrfdr chHpxy frXH toXH'
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:cpHX:shHX,chHX,aHhx:0,aXhx:0,bHX:6,dHX:6,tHX:1,ofHX:3;'
$dg = $dg + '2:cpXH:shXH,chXH,aHhx:0,aXhx:0,bXH:6,dXH:6,tXH:1,ofXH:3;'
$dg = $dg + '2:MIX:tconst:6,mix:6,hst:6,hstconst:6,CH:0,tmd2:6;'
$dg = $dg + '3(Xseq=\'tppm\'):TPPM:aXtppm:0,pwXtppm:1,phXtppm:2;'
$dg = $dg + '3(Xseq=\'spinal\'):SPINAL:aXspinal:0,pwXspinal:1,phXspinal:2;'
$dg = $dg + '3(Xseq=\'waltz\'):WALTZ:aXwaltz:0,pwXwaltz:1;'
$dg = $dg + '3:rfdrH:aHrfdr:0,pwHrfdr:1,qHrfdr:0,ofHrfdr:1;'
$dg = $dg + '4:spinalH:qHspnlm,nHspnlm,chHspnlm,ofHspnlm:3,aHspnlm:0,pwHspnlm:1,ph1Hspnlm:3,ph2Hspnlm:3;'
$dg = $dg + '4:pxyH:aHpxy:0,pwHpxy:1,qHpxy:0,ofHpxy:1;'
$dg = $dg + '4:echoH:aHecho:0,pwHecho:1,t1Hecho:1,t2Hecho: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:cpHX:shHX,chHX,aHhx:0,aXhx:0,bHX:6,dHX:6,tHX:1,ofHX:3;'
$ap = $ap + '1:MIX:tconst:6,mix:6,hst:6,hstconst:6CH:0,tmd2:6;'
$ap = $ap + '1(Xseq=\'tppm\'):TPPM:aXtppm:0,pwXtppm:1,phXtppm:2;'
$ap = $ap + '1(Xseq=\'spinal\'):SPINAL:aXspinal:0,pwXspinal:1,phXspinal:2;'
$dg = $dg + '2(Xseq=\'waltz\'):WALTZ:aXwaltz:0,pwXwaltz:1;'
$ap = $ap + '2:spinalH:qHspnlm,nHspnlm,chHspnlm,ofHspnlm:3,aHspnlm:0,pwHspnlm:1,ph1Hspnlm:3,ph2Hspnlm:3;'
$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:cpXH:shXH,chXH,aHhx:0,aXhx:0,bXH:6,dXH:6,tXH:1,ofXH:3;'
$ap = $ap + '2:echoH:aHecho:0,pwHecho:1,t1Hecho:1,t2Hecho:1,;'
ap = $ap
setvalue('ap',$ap,'processed')
setprotect('ap','on',4)
