###CHECKPOINT ARGS:  -nostartlog -nolog-flow -nolog-blocks -queue=0
program "@(#) MODULE: open_log.src RELEASE: 2.3 CREATED: 04/15/94 18:30:40"
source "/mdisw/cfl/flight/src/open_log_v05.src"
descr " open_log - Opens a user log file"
# program open_log, modified from old openlog, 95.12.14 Igor Zayer
#
# Closes any existing logfile and opens a new one.
#
# Calls: (close_log)
# ------
#
# Variable usage:
#----------------
# !GS9: name of user logfile 
#
# !LS0: answer string
#----------------

if !GS9 <> "" then
  perf close_log_v04
end if

ask !LS0 "Enter file name for log file: "
open user !LS0 dt !GS9 w

display "Logging to: %s" !GS9
write  !GS9 "Log File: %s" !GS9
writen !GS9 " "
return
