Make a MONGO-plottable listing

!-------------------------------------------------- 
!   skytemp.spx
!     command file to list relevant calibration temperatures
!     as a function of UT time and source.
!-------------------------------------------------- 

declare filename c40

ask 'File number for input? ', in_file, ?
ask 'File name for output?', filename, ?

$show time
set-list-file f filename
print 'UT day #   Tsys      T_rec     T_sky    T_tel  Source'

read-spectrum 1

do n 1 no_file_spectra
  read-spectrum n
  external-2
  print ut:F10.6, '  ', tsys(1):F9.1, '  ', t_rec(1):i10, '  ', -
        t_sky(1):i6, '  ', t_tel(1):i4,'  ', source_name,
enddo
set-list-file t
$show time