###CHECKPOINT ARGS: -nolog-flow -nolog-blocks -nostartlog
program "@(#) MODULE: close_log.src RELEASE: 2.3 CREATED: 04/15/94 18:30:40"
source "/mdisw/cfl/flight/src/close_log_v01.src"
descr " close_log - Closes the existing user logfile"
# program close_log, modified from old closelog, 95.12.14 Igor Zayer
#
# This procedure closes any existing logfile & prints it.
#
# Calls: --
# ------
#
# Variable usage:
#----------------
# !GS9: name of user logfile 
#----------------

if !GS9 <> "" then
  write  !GS9 "Closed Log File: %s" !GS9
  write  !GS9 " at %s" !DATE
  writen !GS9 " %s" !TIME

  display "Closing and printing log file %s" !GS9
  close user !GS9 print

  setstr !GS9 = ""
else
  beep
  display "No user logfile open!"
end if

return
