EXE MNTSERAT
LAST 30
TZONE LOC
STID RSM1
***
CHID MGAT
FILL A
COPY A TO B
SUB A A
MOVAVG 10 B
10
DIV 180. B
TITLE B MGAT
***
CHID MLGT
FILL C
MOVAVG 10 C
10
DIV 700. C
TITLE C MLGT
***
CHID MWHZ
FILL D
MOVAVG 10 D
10
DIV 250. D
TITLE D MWHZ
***
CHID MBET
FILL E
MOVAVG 10 E
10
DIV 190. E
TITLE E MBET
***
CHID MGHZ
FILL F
MOVAVG 10 F
10
DIV 190. F
TITLE F MGHZ
***
COPY B TO G
BANDPASS G
1
100
DIV G G
MERGE A G
COPY G TO H
***
COPY C TO G
BANDPASS G
1
100
DIV G G
MERGE A G
ADD G H
***
COPY D TO G
BANDPASS G
1
100
DIV G G
MERGE A G
ADD G H
***
COPY E TO G
BANDPASS G
1
100
DIV G G
MERGE A G
ADD G H
***
COPY F TO G
BANDPASS G
1
100
DIV G G
MERGE A G
ADD G H
***
CHID MRYT
FILL G
MOVAVG 10 G
10
DIV 150. G
TITLE G MRYT
BANDPASS G
1
100
DIV G G
MERGE A G
ADD G H
***
CHID MRYT
FILL G
MOVAVG 10 G
10
DIV 150. G
TITLE G MRYT
***
BANDPASS H
4
100
MERGE A H
EVENTS H
4
MERGE A H
TITLE H POSSEVS
BAR B
BAR C
BAR D
BAR E
BAR F
BAR G
BAR H
SCALEALL
0
2.5
SCALE H
0
7
COPY B TO A
DIV A A
LINES A
DASHES A
TOPTITLE POT. SIGNIF SEISMIC EVENTS LAST 3
PLOT 7 B+A C+A D+A E+A F+A G+A H
BYE