###CHECKPOINT ARGS:  -nostartlog -nolog-flow -nolog-blocks -queue=0
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/check_cam_v01.src"
descr "check_cam - Verify data available to dermine pointing"
# program check_cam.src, created 95.04.16 Igor Zayer
#
#
# Successful completion of this routine is essential to be able to 
# continue with alignit control file.
#
# Calls: 
# ------
#
# Variable usage:
#----------------
# !GS7: 'enable calling the leg routine' string; needed by 'move_legs'
# !GS9: name of user logfile 
#
# !LS0: answer string
# !LS1: answer string
#----------------

display "Executing procedure check_cam"

write  !GS9 "Executing procedure check_cam :"
write  !GS9 " %s" !DATE
writen !GS9 " %s" !TIME

beep
beep
beep
display "Make DARN SURE good alignment data is available (fd_cont1) !!"
menu !LS0 "Have data to dermine pointing?" "YES !" "Oops NO.. Quit!"
if !LS0 = "YES !" then
  menu !LS1 "ARE YOU SURE??" "SURE, sure.." "Oops NO.. Quit!"
  if !LS1 = "SURE, sure.." then
    setstr !GS7 = "enable legs"
  end if
end if

writen !GS9 "Finished procedure check_cam : %s" !TIME
writen !GS9 " "

display "Finished procedure check_cam        "
return
