#!/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/y1991/m01/
s1010901.asr
91,01,09
02,39,34
91,01,09
04,15,00
3585


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/y1991/m01/
s1010904.asr
91,01,09
12,17,03
91,01,09
14,13,03
3585


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/y1991/m01/
s1010906.asr
91,01,09
19,12,05
91,01,09
21,06,15
3585


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/y1991/m01/
s1011103.asr
91,01,11
07,41,03
91,01,11
09,26,52
3585


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/y1991/m01/
s1011104.asr
91,01,11
14,23,29
91,01,11
16,18,19
3585


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/y1991/m01/
s1011105.asr
91,01,11
18,32,20
91,01,11
19,39,10
3585


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/y1991/m01/
s1011106.asr
91,01,11
21,23,28
91,01,11
22,54,58
3585


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/y1991/m01/
s1011503.asr
91,01,15
08,16,10
91,01,15
10,03,55
3585


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/y1991/m01/
s1011504.asr
91,01,15
12,11,13
91,01,15
13,28,37
3585


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/y1991/m01/
s1011505.asr
91,01,15
14,57,03
91,01,15
16,57,45
3585


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/y1991/m01/
s1011507.asr
91,01,15
21,57,18
91,01,15
23,43,57
3585


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/y1991/m01/
s1011806.asr
91,01,18
19,50,03
91,01,18
21,30,20
3585


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/y1991/m01/
s1011902.asr
91,01,19
05,37,42
91,01,19
07,20,27
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/y1991/m01/
s1011903.asr
91,01,19
08,48,02
91,01,19
10,39,57
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/y1991/m01/
s1011904.asr
91,01,19
12,08,49
91,01,19
13,41,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/y1991/m01/
s1011905.asr
91,01,19
19,06,47
91,01,19
20,54,29
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/y1991/m01/
s1012002.asr
91,01,20
05,05,24
91,01,20
06,29,04
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/y1991/m01/
s1012003.asr
91,01,20
08,07,33
91,01,20
09,58,18
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/y1991/m01/
s1012004.asr
91,01,20
12,14,04
91,01,20
13,23,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/y1991/m01/
s1012005.asr
91,01,20
14,51,41
91,01,20
16,52,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/y1991/m01/
s1012202.asr
91,01,22
07,07,20
91,01,22
08,34,50
3585


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/y1991/m01/
s1012203.asr
91,01,22
10,01,32
91,01,22
11,57,42
3585


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/y1991/m01/
s1012402.asr
91,01,24
06,38,16
91,01,24
07,12,08
1793


0
0
1
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/y1991/m01/
s1012405.asr
91,01,24
15,28,33
91,01,24
17,26,43
3585


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/y1991/m01/
s1012602.asr
91,01,26
07,16,51
91,01,26
09,07,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/y1991/m01/
s1012603.asr
91,01,26
10,34,43
91,01,26
12,31,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/y1991/m01/
s1012604.asr
91,01,26
14,00,02
91,01,26
15,59,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/y1991/m01/
s1012606.asr
91,01,26
21,00,53
91,01,26
22,39,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/y1991/m01/
s1012702.asr
91,01,27
06,36,08
91,01,27
08,24,58
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/y1991/m01/
s1012704.asr
91,01,27
14,09,57
91,01,27
15,15,57
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/y1991/m01/
s1012705.asr
91,01,27
16,56,41
91,01,27
18,40,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/y1991/m01/
s1012706.asr
91,01,27
20,17,17
91,01,27
21,56,45
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/y1991/m01/
s1013002.asr
91,01,30
04,35,11
91,01,30
06,12,19
3585


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/y1991/m01/
s1013003.asr
91,01,30
07,45,02
91,01,30
09,38,15
3585


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/y1991/m01/
s1013004.asr
91,01,30
11,05,02
91,01,30
13,03,37
3585


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/y1991/m01/
s1013005.asr
91,01,30
14,33,03
91,01,30
16,31,25
3585


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/y1991/m01/
s1013006.asr
91,01,30
18,06,08
91,01,30
19,52,03
3585


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/y1991/m01/
s1013007.asr
91,01,30
21,32,58
91,01,30
23,07,45
3585


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/y1991/m01/
s1013102.asr
91,01,31
07,03,06
91,01,31
08,53,55
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/y1991/m01/
s1013103.asr
91,01,31
10,36,32
91,01,31
12,19,27
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/y1991/m01/
s1013104.asr
91,01,31
13,54,02
91,01,31
15,34,45
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/y1991/m01/
s1013106.asr
91,01,31
21,53,22
91,01,31
22,26,11
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