#!/usr/bin/bash
#
PGPLOT_TYPE=pgxdmp#.xwd/wd;PGPLOT_WD_WIDTH=800;PGPLOT_WD_HEIGHT=600
export PGPLOT_TYPE PGPLOT_WD_WIDTH PGPLOT_WD_HEIGHT
#
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070303.asr
89,07,03
10,39,50
89,07,03
12,13,36
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070304.asr
89,07,03
13,55,13
89,07,03
15,41,30
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070503.ksp
89,07,05
02,30,29
89,07,05
02,47,24
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070500.asr
89,07,05
00,53,16
89,07,05
02,55,40
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070501.asr
89,07,05
04,34,47
89,07,05
06,24,09
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070502.asr
89,07,05
08,03,23
89,07,05
09,46,37
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070503.asr
89,07,05
11,20,36
89,07,05
13,01,44
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070504.asr
89,07,05
14,37,42
89,07,05
16,12,48
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070505.asr
89,07,05
18,03,40
89,07,05
20,02,48
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070506.asr
89,07,05
21,35,40
89,07,05
23,42,00
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070600.asr
89,07,06
01,17,59
89,07,06
03,03,59
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070602.asr
89,07,06
08,24,29
89,07,06
10,08,35
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070603.asr
89,07,06
11,50,20
89,07,06
13,20,16
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070604.asr
89,07,06
14,59,40
89,07,06
16,54,00
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070605.asr
89,07,06
18,24,16
89,07,06
20,25,48
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070606.asr
89,07,06
21,59,29
89,07,07
00,06,12
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9070702.asr
89,07,07
05,20,40
89,07,07
06,58,52
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071002.asr
89,07,10
06,29,37
89,07,10
08,10,39
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071003.asr
89,07,10
09,49,40
89,07,10
11,34,08
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071005.asr
89,07,10
16,22,10
89,07,10
18,24,19
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071106.ksp
89,07,11
21,21,35
89,07,11
21,32,43
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071105.asr
89,07,11
16,45,15
89,07,11
18,46,53
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071106.asr
89,07,11
20,17,35
89,07,11
22,21,37
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071203.asr
89,07,12
10,30,50
89,07,12
11,26,58
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071204.asr
89,07,12
13,45,29
89,07,12
15,35,22
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071205.asr
89,07,12
17,07,59
89,07,12
19,08,50
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071206.asr
89,07,12
20,41,39
89,07,12
22,41,42
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071303.ksp
89,07,12
10,45,49
89,07,12
11,02,43
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071303.asr
89,07,13
10,49,16
89,07,13
12,26,54
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071304.asr
89,07,13
14,04,41
89,07,13
15,57,30
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071405.asr
89,07,14
17,51,10
89,07,14
19,53,40
3585


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071502.ksp
89,07,15
04,57,11
89,07,15
06,20,22
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071503.ksp
89,07,15
08,19,47
89,07,15
09,43,08
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071703.ksp
89,07,17
02,09,36
89,07,17
03,38,07
1793


0
0
2
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071702.asr
89,07,17
05,34,36
89,07,17
06,59,51
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071703.asr
89,07,17
08,55,43
89,07,17
10,25,56
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071704.asr
89,07,17
12,08,58
89,07,17
13,56,46
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071705.asr
89,07,17
15,27,54
89,07,17
17,26,30
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9071706.asr
89,07,17
18,58,38
89,07,17
21,02,54
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9072003.asr
89,07,20
09,53,51
89,07,20
11,29,53
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9072004.asr
89,07,20
13,08,17
89,07,20
14,57,33
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9072102.asr
89,07,21
06,58,52
89,07,21
08,37,01
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9072301.pap
89,07,23
01,06,40
89,07,23
02,07,56
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1989/m07/
s9072402.ksp
89,07,24
04,47,58
89,07,24
05,55,58
1793


0
0
1
2
0
2c
33
0
0
yyyyyyy
EOF
for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
rm -f fort.91