| Revision 51,
545 bytes
checked in by marcus, 14 years ago
(diff) |
|
r36 | svn | 2008-08-28 08:47:03 +0200 (Do, 28 Aug 2008) | 1 line
updated station info; phasmap reads from db; new command procedures
|
| Line | |
|---|
| 1 | ! file GSELIST2Q.SHC |
|---|
| 2 | ! ============= |
|---|
| 3 | ! |
|---|
| 4 | ! version 1, 15-Aug-2008 |
|---|
| 5 | ! |
|---|
| 6 | ! converts list of GSE files to Q |
|---|
| 7 | ! K. Stammler, 31-Aug-94 |
|---|
| 8 | |
|---|
| 9 | default 1 ;; name of list file |
|---|
| 10 | default 2 1 first item of list |
|---|
| 11 | default 3 %#1(0) last item |
|---|
| 12 | |
|---|
| 13 | sdef cnt #2 ! line counter |
|---|
| 14 | sdef gsefile ! name of gse file |
|---|
| 15 | |
|---|
| 16 | loop_start: |
|---|
| 17 | if "cnt gti #3 goto/forward loop_exit: |
|---|
| 18 | del all_dh |
|---|
| 19 | calc s &gsefile = %#1("cnt) parse 1 |
|---|
| 20 | echo processing file "gsefile |
|---|
| 21 | readgse "gsefile all |
|---|
| 22 | write "gsefile all |
|---|
| 23 | calc i &cnt = "cnt + 1 |
|---|
| 24 | goto loop_start: |
|---|
| 25 | loop_exit: |
|---|
| 26 | |
|---|
| 27 | return |
|---|
Note: See
TracBrowser
for help on using the repository browser.
