PROC prompt_for_relays_restricted (
  relays : var of string = $optional
  status : var of status = $optional
  )

  create_variable input_string k=string

relays_restricted_loop: ..
  LOOP
    accept_line input_string input p='Enter YES, NO, or ? for help:'

    IF input_string = '?' THEN
      put_line ('0Specifies the restrictions on the NOS/VE system with respect to the ' ..
            ' relaying of messages between this network and other networks.  This ' ..
            ' parameter is meaningful only if the NOS/VE system resides on multiple ' ..
            ' networks.  The default for this parameter will not restrict the relay'..
            ' of messages.', '  ')
    ELSEIF $translate(lower_to_upper, input_string) = 'YES' OR..
          $translate(lower_to_upper, input_string) = 'Y' THEN
      $value(relays) = 'YES'
      EXIT relays_restricted_loop
    ELSEIF $translate(lower_to_upper, input_string) = 'NO' OR $translate(lower_to_upper, input_string) = 'N'..
           THEN
      $value(relays) = 'NO'
      EXIT relays_restricted_loop
    ELSEIF input_string = ' ' THEN
      EXIT relays_restricted_loop
    ELSE
      put_line ('0Invalid response, please correct.', '  ')
    IFEND
  LOOPEND relays_restricted_loop

PROCEND prompt_for_relays_restricted
