EXTERNPROTO NetworkSFBool [
                       eventIn SFBool set_value
                       eventOut SFBool value_changed
                       eventIn SFBool value_fromnet
                       eventOut SFBool value_tonet
                       exposedField SFString tag
                       exposedField SFBool   pilotOnly
                       field SFBool   localCopy
                       exposedField SFBool   echo
                       exposedField SFBool   cont
                      ]
  {
     Script {
        eventIn SFBool InSc IS set_value
        eventOut SFBool OutSc IS value_changed
        eventIn SFBool netInSc IS value_fromnet
        eventOut SFBool netOutSc IS value_tonet
        field SFBool local
  
        directOutput TRUE
        mustEvaluate TRUE
  
        url "javascript:
        function InSc(value) {
          netOutSc = value;
          if( local == true )
            OutSc = value;
        }
        function netInSc(value) {
          OutSc = value;
        }
      "
     }
  }