I wrote the BEAR-DST.BAS program to help me find weak signals in the
daily SDR records since teleseismic events are about the only ones seen in
New Jersey.
  The program should run in almost any dialect of BASIC, e.g. GW-BASIC,
QuickBasic, etc.  The users' lat. and lon. and azimuth of max. sensitivity 
of a horizontal seismometer are built into the prog. so that they do not
need to be input for each run.  It is not compiled so that you can
customize the program for your data by editing the program.  The line nos.
for these data are indicated in the program.  The program is written in my
usual spaghetti-code fashion.  The heart of the prog. was stolen from the
source indicated in the prog.
  Input to the program (gotten from USGS reports or wherever) is latitude,
longitude, magnitude and origin time.  
  The program outputs the distance, bearing <to> the 'quake, the arrival
times of the P, S and LQ waves and an est. of the "Relative Signal".  The
RS is an arbitrary number proportional to the expected amplitude of the
surface waves.  (Deep 'quakes produce little or no surface waves.)  A
"corrected RS" is also output.  This factor attempts to correct for the
dipole sensitivity pattern of horizontal seismometers.  The uncorrected RS
should be appropriate for verticals.
  The correlation between the corrected RS and the seismograms I get is far
from perfect but at least I know where to look .  I would be interested to
hear about other users' correleations. 
The output is also <appended> to a file BEAR-DST.OUT.  The date in this
file is the date of the calculation, not the 'quake date.  Data in this
file could be used by another program to collect statistics, etc.
  Please let me know about any problems or suggestions for improvements. 
Either e-mail to the net or 75612.2635@compuserve.com.  It is probably
impossible to embarras me by finding a bug.
Bob Barns  =8->