PROCEDURE prompt_for_active_network (
  choice : (var) boolean = $optional
  status : (var) status = $optional
  )

  crev yes_response k=boolean

"$ format=off
  put_line (..
    '1'..
    '0NAM/VE has already been activated.  Any changes that you make ' ..
    ' to the network configuration will not take effect until the next '..
    ' system deadstart.' ..
    '  ')
"$ format=on

  $system.osf$builtin_library.prompt_for_answer 'Do you want to continue:' yes_response
  $value(choice) = NOT yes_response

PROCEND prompt_for_active_network
