Exporting a spectrum to a formatted file

  file in toto
  find
  get f
  sic output toto.dat
  for i 1 to channels
    say 'rx[i]' 'ry[i]' /format g12.4 g12.4
  next
  sic output