!************************************************************
      !* Function Values between Upper level and Gate
      !************************************************************
      %constinteger connect         =  1 ;! start a call up
      %constinteger accept call     =  2; ! accept a call
      %constinteger Disconnect      =  3; ! Stop a call, or reject a connect
      %constinteger Enable Input    =  4; ! Allow data, Gate -> Task
      %constinteger Put Output      =   5; ! Output Block, Gate -> Task
      %constinteger Enable Output   =   4; ! Allow Output, Task -> Gate
      %constinteger Input Here      =   5; ! Input Block,  Task -> Gate
      %constinteger Expedited       =   6; ! Pass 'Interrupts'
      %constinteger Reset           =   7; ! Reset the Virtual Circuit (!)
      %constinteger Datagram        =   8; ! Send a 'datagram'
      %constinteger Datagram Reply  =   9; ! Reply to a datagram

      %constinteger Enable Facility =  10; ! Claim incoming calls Task -> Gate
      %constinteger Disable Facility= 11; ! Stop them
      %constinteger Control data = 12;   ! control data in&out (xxx only)
%endoffile