"Safire Main Menu"        ;
abcdefghijklmpoanz              ;
0                         ;

a:FS:OPENFILES    :"consaf.dat",iflag,lcon,lpr,lout,lafg,lbug,\
                   lapd,lntrp,lifg;
b:FS:READCON      :iblk,vs1,vs2,ncel,za,temp,ngas,idg,ir,nir;
c:FS:READDATA     :atmos,re,xlat,mr,nr,ngg,nam,igs,zr,\
                  pr,tr,tgr,q,qgr,temp;
d:FS:SETOPT1      :ngg,ngas,igm,nam,name,idg,igs,igas;
e:DF:GET_ELEMENT1 :iri,ir,icnt;
f:PN:FORWARD      :forward.pct;
g:DF:SET_EOI      :"FORWARD",3;
h:PN:APODIZE      :apodize.pct;
i:DF:SET_EOI      :"APODIZE",0;
j:PN:INTERPOLATE  :interpolate.pct;
k:DF:SET_EOI      :"INTERPOLATE",0;
l:PN:INTERFEROGRM :interferogrm.pct;
m:DF:SET_EOI      :"INTERFEROGRM",0;
n:DF:ISE          :icnt,nir,4;
o:FS:CLOSEFILES   :;
p:CS:CALL_SYS     :"xterm -e idl";







