# File: focser.src	04.01.94
#
# This procedure takes series of exposures at all focus positions
#
#     !GI0 = exposure time in shutter ticks (0.25 msec/tick)
#     !GI7 = Sequence ID
#     !GI9 = wait time after exposure command in seconds
#

program "@(#) MODULE: focser.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/focser.src"
descr "focser - Takes a FD series at all focus positions"

#!!-->  Set exposure time (!GI0) and number of  <---!!
set !GI0 = 16000
set !GI9 = 20
if !GI7 = 0 then
  set !GI7 = 0xc01d
end if

open decom160 !LS0			## Record image data
writen !GS9 "160k file opened on: %s" !LS0
writen !GS9 " "

wait time 5

perform fdfocser
wait time !GI9

perform hrfocser
wait time !GI9

close decom160
writen !GS9 "160k file closed on: %s" !LS0
writen !GS9 " "
