! @(#)snapshot.telescope	17.1.1.1 (ESO-IPG) 01/25/02 17:46:13
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!  procedure `snapshot.telescope' to make a snapshot of the current 
!                              Midas environment at a telescope in La Silla
!  K. Banse	IPG, ESO - Garching
!  950330
! 
!  execute via @ snapshot.telescope 
! 
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! do the saving at a lower level
@ snapshot.telescope,save_env
! 
open/file saveMidas.dat append inputi		!add the current time
write/file {inputi(1)} "   "
inputc = m$time()
write/file {inputi(1)} Time of snapshot: {inputc(1:40)}
close/file {inputi(1)}
! 
$mv saveMidas.dat {tlasilla}:{inputc(19:26)}.env
! 
write/out Midas environment saved in file {tlasilla}:{inputc(19:26)}.env
write/out "Please, store this file in a `safe' place and refer" to it
write/out "in the problem description in the observation log"
! 
entry save_env
! 
! save logfile
! 
assign/print file saveMidas.dat
print/log
! 
! save keywords
! 
read/keyw * >>saveMidas.dat
! 
! save display+graphics settings
!
if mid$sess(6:6) .ne. "-" then
   show/display >>saveMidas.dat
endif
if mid$sess(7:7) .ne. "-" then
   show/graphics >>saveMidas.dat
endif
! 
! save Midas environment settings
!
@a showmidas >>saveMidas.dat
! 
! save all user created commands
!
show/commands >>saveMidas.dat