print *,' q[uit] or ex[it]..........quit program'
print *,' h[elp] or ?...............print help menu to screen'
print *,' me[nu]....................enter settings menu'
print *,' v[iew]....................view settings'
print *,' def[aults]................reset settings to defaults'
print *,' no[te]....................write a note to note file'
print *,' STATION:CHANNEL SIFTING:'
print *,' sc........................station:channel sifter'
print *,' li[st] or ls..............list sta:chans in selected list'
print *,' wls.......................write sta:chans in file list_stachan'
print *,' a[dd].....................add sta:chans to selected list'
print *,' rm........................rm sta:chans from selection list'
print *,' READING AND WRITING DATA:'
print *,' t.........................go to the top of the sta:chan list'
print *,' b.........................go to the bottom of the sta:chan list'
print *,' go[to] # or #.............go to the #th element of the sta:chan list'
print *,' n or d ...................next (or down) sta:chan in selection list'
print *,' p or u....................previous (or up) sta:chan in selection list'
print *,' sa[ve] (w,f,d,Z,R,T)............save to disk .wfdisc, .ftdisc, and/or .disp relations for given channels'
print *,' DATA MANIPULATION,FILTERING, AND PLOTTING:'
print *,' ro[tate]..................rotate horizontal components to radial and transverse'
print *,' fi[lter]..................apply bandpass filter to raw data'
print *,' cl[ean].[Z,R,T]...........clean results for this component'
print *,' in[it] or op[en]..........initiate graphics'
print *,' p(znert)..................plot z,n,e,r, and t-components of data'
print *,' po[znert].................overplot z,n,e,r, and t-components of raw and cleaned data'
print *,' rl(r,l,b).................Rayleigh/Love/Both toggle for overplot'
print *,' lpr.......................plot window (raster image) to laser printer'
print *,' ps........................create postscript file of window (raster image)'
print *,' pst..(toggle).............create quality postscript file of the next plot'
print *,' g(a,g,c,p)................plot dispersion (amplitude, gp vel, ph vel, or polarization)'
print *,' fti[mage].[r,c,b|z,r,t]...display freq-time diagram(s) for a chosen station'
print *,' TIME SERIES MANIPULATION:'
print *,' f.........................fit to window'
print *,' fg........................fit to group velocity window'
print *,' +.........................scroll right full screen'
print *,' -.........................scroll left full screen'
print *,' r.........................scroll right with cursor'
print *,' l.........................scroll left with cursor'
print *,' i or z....................zoom in with cursor'
print *,' o.........................zoom out by 3x'
print *,' ANALYSIS:'
print *,' fta[n]....................perform freq-time analysis for chosen station'
print *,'   FROM FTAN WINDOW:'
print *,' q.........................quit window without retaining dispersion information'
print *,' y.........................quit window but retain dispersion information'
print *,' p.........................place a point (2 pts set limits, more for cleaning)'
print *,' d.........................delete a point'
print *,' s.........................show chosen dispersion curve'
print *,'   QUALITY MARKING:'
print *,' A, B, C, D, E, F, -1......mark quality of measurement on next save'
--------------------------------------------------------------------------------- FTAN DEFAULT :> -------------->
);

               FTAN SETTINGS:
 WINDOW CHARACTERISTICS:
   2.) postscript file root name....................  ftan
   3.) window size (1-large).............(toggle)... 0
   4.) mode (0-portrait).................(toggle)... 1
   5.) postscript output?..(1-y).........(toggle)... 1
 PLOT CHARACTERISTICS:
   7.) foreground color.............................  blue
   8.) background color.............................  seashell
   9.) wave type for overplot.(R-Ray,L-Love,B-both).  B
  10.) plot PREM group vels.(R-Ray,L-Love,B-both,N-no) N
 EDIT HANDLING:
  11.) if edits are applied..............(toggle)...  y
  12.) if interpolate on nomimal grid....(toggle)...  n
 WAVEFORM:
 13.) waveform filter specs..(t01,tc1,tc2,t02 (         s)).   1.0    5.0   40.0   60.0
 MEASUREMENT SPECIFICATIONS:
  14.) output image phase?...............(toggle)... F
  15.) apply instrument response?........(toggle)... T
  16.) change alpha filter parameters?.............. F
  17.) components to be processed...................  ZRT
  18.) polarization measurements?................... T
 PHASE VELOCITY INFORMATION:
  20.) attempt phase velocity measurements.(toggle). T
  21.) phase velocity bounds (cmin, cmax (km/s))....  1.5  5.
  22.) phase velocity reference period (s)..........  20.
 ANALYSIS LIMITS:
  23.) min and max group velocity (km/sec)..........  1.5  5.
  24.) min and max period (sec).....................  5.  40.
  25.) numbers of orbit and mode.................... 1 0
  26.) raw spectrum: group velocity and width (s)...  3.5769999  1800.
 DATA BASES, OUTPUT FILES, AND SPECIFICATION:
  27.) general data base name (site, sensor, etc.)..  97288_Chile_NoDec
  28.) cmt data base name...........................  97288_Chile_NoDec
  29.) note file name...............................  97288_Chile_NoDec.note
  30.) output cleaned waveform directory............  wfout
  31.) output dispersion information directory......  disp.dir
 EVENT INFORMATION:
  32.) read centryd and moment relations..(toggle)..  n
  33.) Event Information.....................

        y   jd mo  d  h  m  sec     lat      lon      z     dt
        0   0  0  0  0  0  0.00    0.00     0.00    0.00   0.0
      exp  mom    mrr    mtt    mpp    mrt    mrp    mpp   mb  ms
      0  0.00   0.00   0.00   0.00   0.00   0.00   0.00  0.0 0.0
  50.) X-axis scaling: periods (T) or frequencies(F)   T
 *********************************************************