*DECK FTUSNET 
          IDENT  FTUSNET
          ENTRY  FTUSNET
          TITLE  FTUSNET - SET NETWORK INTERFACE TYPE.
          COMMENT SET NETWORK INTERFACE TYPE. 
          SPACE  4
**        FTUSNET - SET NETWORK INTERFACE TYPE. 
* 
*         FTUSNET IS CALLED TO SELECT A NETWORK INTERFACE.
* 
*         FTUGNET(TYPE) 
* 
*         ENTRY  (TYPE) = NETWORK INTERFACE TYPE. 
* 
*         EXIT   INTERFACE TYPE STORED. 
  
*CALL COMFFTU 
  
 FTUSNET  SUBR
          SA2    X1          FETCH PARAMETER VALUE
          BX6    X2 
          SA6    FT.NTYP     SET NETWORK TYPE 
          EQ     FTUSNET     RETURN 
  
          END 
