REM *********************************************************************** REM * * REM * DEPTBAPR - GMB 2000 * REM * * REM * DEPT program with choice of 45, 90, or 135 editing, and block * REM * accumulation. It is basically a modification of the Anazasi DEPT * REM * sequence which includes the choice of block accumulation. * REM * * REM * Do not read 13C conditions, as we may want to be able to change * REM * the number of scans interactively... * REM * * REM *********************************************************************** showwin cls print "DEPT Acquisition Program for Spectral Editing" print print "The relaxation delay needs to be set in the range 1 to 5" print "times the expected T1 for the sample. 2.0 sec is a good" print "general purpose value." print input "Enter a relaxation delay: ",d0 if d0=0 then d0=2 cls define p5 h90 pulses.txt define p0 x90 pulses.txt print "DEPT Acquisition Program for Spectral Editing" print print "Setup the 13C and 1H pulsewidths." print if p5>0 then print "The decoupler 90 degree pulsewidth chosen is ",p5,"us" if p5=0 then input "Enter the decoupler 90 degree pulsewidth: ",p5 p6=2*p5 print print "Select the tip angle of the DEPT editing pulse. Enter (1)" print "for DEPT 45, (2) for DEPT 90, or (3) for DEPT 135." print input "Tip angle of editing pulse (1, 2, or 3): ",t rem set default for DEPT-135 if the value of tip angle is bogus... p7=3*p5/2 if t=1 then p7=p5/2 if t=2 then p7=p5 if t=3 then p7=3*p5/2 if p0>0 then print "The observe 90 degree pulsewidth chosen is ",p0,"us" if p0=0 then input "Enter the observe 90 degree pulsewidth: ",p0 p1=2*p0 cls print "DEPT Acquisition Program for Spectral Editing" print print "Enter the number of blocks of data to acquire (default 1)." print "Entering more than 1 block will automatically set the" print "spectrometer to run in block averaging mode." input "Number of blocks of data to acquire: ",b if b<1 then b=1 if b=1 then goto 100 input "Enter output file name (data\my_bapr): ",f$ if f$="" then f$="data\my_bapr" 100 cls print "DEPT Acquisition Program for Spectral Editing" print if b>1 then print "The spectrometer is set to do",b,"blocks of",n,"scans each." if b>1 then print print "Running DEPT..." REM write 2D file header if running more than 1 block... if b>1 then WH2D f$ b 0 0 REM a$ is the transmitter phase cycle a$ = "00" b$ = "11" c$ = "02" n$ = "00" o$ = "02" p$ = "13" q$ = "13" PROGRAM "clear" PROGRAM 0 r S PROGRAM + 2 uS FX PX PROGRAM + p5 uS DEC HP FX PX n$ PROGRAM + 4000 uS PROGRAM + p5 uS DEC HP FX PX o$ PROGRAM + p6 uS DEC HP FX PX p$ PROGRAM + p5 uS DEC HP FX PX o$ PROGRAM + p0 uS TX FX PX a$ PROGRAM + 4000 uS PROGRAM + p0 uS TX FX PX b$ PROGRAM + p1 uS TX FX PX a$ PROGRAM + p0 uS TX FX PX b$ PROGRAM + p7 uS DEC HP FX PX q$ PROGRAM + 4000 uS PROGRAM + 40 uS RX DEC BB FX PX PROGRAM + 1.0 uS ADC RX DEC BB FX PX PROGRAM + a S RX DEC BB FX PX PROGRAM + 0.02 S RX DEC BB FX PX PROGRAM "coadd" c$ PROGRAM + 1 uS FOR i=1 to b print ZERO START if i=1 then wr "c:\eft\data\pnmr.fid" if b=1 then goto 200 d1=d0*i WF f$ i d1 cls print "Running DEPT..." print print "Block",i,"of",b,"completed." NEXT 200 cls print "DEPT Experiment completed." if b=1 then goto 300 print print "Block averaging experiment completed. Total scans",n*(i-1),"." input " to continue...",g$ cls print "Use to transfer to Nuts to process the data." print "First import and process the first block , select a strong" print "isolated peak for registration, create zoom region 0 about it." print "Then run aii_Cbapr.mac, which will align and add all blocks." input " to continue...",g$ cls print "The raw data is saved as file",f$,"which will be" print "overwritten without warning if the same name is used" print "again. To save the data move it to another directory." 300 input " to exit the pulse program...",g$ END