! Setup Default
!!!!!!!!!!!!!!!
!
!@abb.class
set default 
set angle sec 
set plot h
set for long
set bad and
!set cur on

!device xauto

!define character cigtot*128
!let cigtot =  "/home/observer/fls/"'&3'".14m"
!define character cigred*128
!let cigred =  "/home/observer/fls/"'&3'".14m"

! File to save all the spectras
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
$ rm temp.bur
file out temp new

for i &1 to &2 
diskread "/raw/mc/spa/qef04827.raw" /scans i
!diskread n6306.t /scans i
next

!To read the On (11+27)+Off(7+23) Pixels
! And put them in a Temp file
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!

file in temp

$ rm temp.14m
file out temp.14m new
set match 20
set window '&3' '&4'
set base 0

set off 0 0
find /all
get first
base
write
for i 1 to found-1
get next
base
write
next

set off * *
!set tel   FCRAO-QEF-07
set tel   FCRAO-QEF-11
find /all
get first
mul -1
base
write
for i 1 to found-1
get next
mul -1
base
write
next


!set tel   FCRAO-QEF-23
set tel   FCRAO-QEF-27
find /all
get first
mul -1
base
write
for i 1 to found-1
get next
mul -1
base
write
next

set tel *



!
!To read the temp file
!!!!!!!!!!!!!!!!!!!!!!
!
file in temp.14m

!file out 'cigred'  new

set match 200
set align vel
find /all
lis