1
! @(#)necavtab.prg 19.1 (ES0-DMD) 02/25/03 14:19:35
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
4
!.COPYRIGHT (C) 1991 European Southern Observatory
5
!.IDENT necavtab.prg (formerly t2avertbl.prg)
6
!.AUTHOR Pascal Ballester, ESO - Garching
7
!.KEYWORDS Spectroscopy, Echelle, Background
8
!.PURPOSE Command AVERAGE/TABLE
9
!.VERSION 1.0 Creation 5-OCT-1989 JDP
11
!-------------------------------------------------------
13
DEFINE/PAR P1 ? IMAGE "Enter image:"
14
DEFINE/PAR P2 ? TABLE "Enter table:"
15
DEFINE/PAR P3 ? ? "Enter columns with positions:"
16
DEFINE/PAR P4 ? ? "Enter output column:"
17
DEFINE/PAR P5 0 NUMBER
19
WRITE/KEY INPUTI/I/1/1 'P5'