! @(#)cleanup.telescope	17.1.1.1 (ESO-IPG) 01/25/02 17:46:05
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!  procedure `cleanup.telescope' to cleanup at the start of a Midas session
!                                at a telescope in La Silla
!  K. Banse	IPG, ESO - Garching
!  950330
! 
!  execute via @ cleanup.telescope 
! 
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! remove everything from MID_WORK
! 
in_a = m$symbol("MID_WORK")
write/out the MID_WORK directory:
write/out {in_a} 
write/out will be cleared completely - this may take some time...
inquire/keyw inputc "Type YES, if you really want that"
if inputc(1:3) .ne. "YES" then
   write/out nothing will be removed from $MID_WORK
else
   $rm {in_a}/*
endif
! 
write/out 
write/out ****************************************************
write/out "*                                                  *"
write/out "*   in order to also restart the image aquisition, *"
write/out "*   please, logout of the system,                  *"
write/out "*   login again and start Midas via `inmidas'      *"
write/out "*                                                  *"
write/out ****************************************************
bye